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PAINTER POWER ADVANCED - PP-16.652e - JUNE 11, 1981 
COPYRIGHT (C) 1981 BY ERIC 5S. PODIETZ D/B/A DIGITAL MERCURY 


" Shall it ever carry the spirit of Channel Fifty Million * 





or en) ee” ee) er ee ee) ee 2 ee 


+ HARDWARE TOGGLES 
oo 
3 
= (054 PRIMPG: EGU $0054 sDISPLAY PRIMARY PAGE 
= C@55 SECPG: EQU $0955 sDISPLAY 2ND PAGE 
= C@5i TXTDSP: EQU $(051 sDISPLAY TEXT 
= (Q57 DHIRES: EQU $(257 sDISPLAY HIRES GRAPHICS 
= C858 DGRAPH: EQU $(050 sDISPLAY GRAPHICS 
= C238 SPEAK: EGU $(038 ‘APPLE SPEAKER 
3 
; APPLE SOFTWARE INTERFACE 
os 
3 
= 8824 CURSRX: EQU $24 sTEXT CURSOR POSITION 
= CURSRY: EQU $25 
= FBIE PREAD: EQU $FBIE ;READ PADDLE 
= FDF@ COUTi: EGU SFDFQ sQUTPUT CHAR TO SCREEN 
= FCA8 ADELAY: EQU $FCAS sAPPLE DELAY ROUTINE 
= FF4&Q IOSAVE: EQU $FF4A ;SAVE 6502 REGISTERS 
= FFSF TOREST: EQU $FF3F *RESTORE 6582 REGISTERS 
= FEB4 SETNRM: EQU $FEB4 sSET NORMAL TEXT MODE 
= FC22 CURSET: EQU $FCee sSET CURSOR POSITION (COMPUTE BASL/H) 
= 0828 BASL:  EQU $28 *BASE ADDRESS OF CURSOR POSITION 
= BASH: EGU $29 
j 
$ 
: PAGE ZERO DEFINITIONS 
. SEE A eee erate 
3 
= FROM: EGU $68 sFROM LOCATION FOR COPYING 
= TO: EQU $62 ;T0 LOCATION FOR COPYING 
3 
= 0064 CPAGE1: EQU $64 sBEGINNING LOC OF TEXT LINES 20 & 21. 
= 0066 CPAGE2: EQU $66 sBEGINNING LOC OF TEXT LINES 22 & 23. 
b 
= 0268 TBASEX: EQU $68 sTARGET PATTERN BASE - X VALUES 
= 986A TBASEY: EQU $60 ‘TARGET PATTERN BASE - Y VALUES 
= QG6C SBASEX: EGU $6C ‘SOURCE PATTERN BASE - X VALUES 
= @@6E SBASEY: EQU $65 _ s$SQURCE PATTERN BASE - Y VALUES 
= 9078 CBASEX: EGU $72 sCURRENTLY DISPLAYED PATTERN BASE - X VALUES 
= 0072 CBASEY: EQU $72 
= BBASEX: EQU $74 sSTROKE BUFFER 


il 
38 
ne 


BBASEY: EQU $76 
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909i 
8004 


8097 


= 38 


ELELELEL EL 


ADBAIF 


DGSi “OCW? 


BDSB1F 
BDAGIF 


8D841F 
8D851F 
BDS41F 
BDSCIF 
ADSAIF 
8DS11F 
8D92iF 
R27F 

8CSDIF 
BCSSIF 


8CSE1F 


;LAST $18 LOCATIONS OF PAGE 3 ARE USED TO 
;HOLD ZERO PAGE STUFF WHILE WE MESS AROUND. 


MEMORY OFFSET VALUES (FROM CPAGE 1/2) FOR CONTROL DISPLAY. 


;DISP BEING USED 

sCURRENT BASE 
;SIZE OF TARGET PATTTERN BEING USED 
sO1ZE OF SOURC PATTERN BEING USED 
;VISUALIZE MODE 
sLOCATE MODE 


“FREEZE FLAG ro 


sPAINT MODE (MASTER) 
SGUICKSTROKE MODE | 
;HOLD X FLAG —e 
sHOLD Y FLAG 
*CURRENT COLOR 
;DRAW ENABLE FLAG © “fp 
sWRAPARDUND FLAG 


~ 


Wh 


gv 


sNEGATE SOURCE X VECTOR 
sNEGATE SOURCE Y VECTOR 
sMAKE/DRAW MODE FLAG 
‘PAINT APPLICATION MODE (!!) 


sALREADY INITIALIZED? 
sNOPE 


sSAVE ZERO PAGE LOCATIONS 
;CLEAR ERASE FLAG 


;oET HIT TYPE = EXTERNAL SO WE CAN GET AWAY 


;CLEAR FREEZE REINSTATE FLAG 

;CLEAR EXECUTING QUICKSTROKE FLAS 

;OTART OFF IN MASTER MODE 

;CLEAR OFF THE SCREEN BITS 

;FOR X/Y STARTING POINTS (1@ BIT REGS) 
;9ET BASE POINTERS FOR BRUSH & QUICKSTROKE 
;BUFFERS TO BEGINNING OF PATTERN 


sSTART *EM AT CENTER OF SCREEN 


; SPECIAL MEMORY LOCATIONS 
fem 
3 
REGS:  EQU $03E8 
j 
; 
5 
¥ 
TXLINi EGU $2 
TXLINe EQU $88 
3 
TXUSD «EGU = TXLINi+@1 
TXBSE EGU = TXLINI+12 
TXTSZ: EQU TXLINI+28 
TXSSZ: EG@U TXLINI+37 
TXVER: EQU TXLINE+1@ 
TXLOC: EQU TXLINE+20 
TXFREZ EQU TXLINe+30 
TXPNT: EGU TXLING+39 
TXGST: EQU TXLINI+1@ 
TXHLDX EGU TXLINI+2 
TXHLDY EGU TXLINi+22 
TXCOLR EQU TXLINI+38 
TXDRWF EGU TXLINI+39 
TXWRP: EQU TXLINE+1@ 
TXNEGX = EQU TXLINE+28 
TXNEGY EGU TXLIN@+22 
TXMODE EGU TXLINC+3@ 
TXPNM = EGU TXLINE+39 
3 
5 
ORG $C@ 
1 
BEGIN: CLD SET BIN MODE 
LDA INIFL6 
BNE DOINI 
RTS 
DOINI: JSR SAVREG 
LDA #9 
STA ERSFLG 
STA HITTYP 
;WITH ALL SORTS OF MONKEY BUSINESS. 
STA KBFRCH 
STA GSTXEQ 
5TA CUMODE 
STA SCSTRY+1 
STA SCSTRX+1 
STA TBSPTR 
STA BSPTR 
LDX #127 
STY CSTRTX 
STY SCSTRX 
LDX 164 
STY CSTRTY 


ee: 
Yo 
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BC34 8C3BIF STY SCSTRY 
@C37 eeC4i7 JSR GPAGE1 ;9eT UP POINTERS TO CTL DISPLAY 
@C3A 2BB41A JSR WRTEXT sWRITE TEXT AS TXTFLG ALLOWS 
3 
; NOW WE HAVE TO GET OPERATIONAL BY FORCING THE SETTING OF THE VARIOUS 
; FLAGS ONE WAY OR THE OTHER. THEN WE CAN RETURN TO CALLER. 
3 
GC3D AIG! LDA #1 s9ET PRINTING MODE TO NORMAL 
OCSF eB@AIE JSR PNMHIT 
@C42 289119 JSR FRZON ;PUT FREEZE ON 
@C45 AI4E LDA #° N? ; TARGET SIZING MODE = NORMAL 
@047 BDSEIF STA XCHARI 
BC4A 202113 JSR TREMDE 
@C4D AS4E LDA #°N? ;STROKE SIZING MODE = NORMAL 
@C4F ADSEIF STA XCHARI 
@CS2 285Di3 JSR SRCMDE 
8035 2OF SOF JSR RABBIT sOTART WITH SPEED 5 
@C58 AS4B LDA #7 K? ;COLOR SELECTION IS BY KB 
@C5A 8D3EIF STA XCHARI 
@C5D 2@5B0F JSR COLMDE 
@C68 AIR LDA # 3? ;START W/ WHITE BKGND 
@C62 8D3E1F STA XCHARI 
@C65 280D19 JSR CHBKND 
BCBB AGE LDA #6 ;9ET PAINT COLOR TO BLACK 
@C6A 20790F JSR COLCH6 
@C6D AISI LDA ie ;BRUSH #1 
@C6F ADSAIF STA CTARG 
QC72 AIS LDA #' p? sO) ROKE = PADDLES 
@C74 8DSCiF STA CSOURC 
QC77 eB7EI7 JSR RSET ;9ET UP TARGET, SOURCE & STROKE BUFFERS 
BC7A A289 LDX #9 ;NOW CHECK ALL 9 PATTERNS TO MAKE SURE 
@C7C ADATIF LDA APATTS ; THERE ARE NONE W/@ POINTS. IF WE FIND 
QC7F 8569 STA FROM sANY, THEN CHANGE # POINTS TO 28. 
@C81 ADABIF LDA APATTS+1 
@C84 856i STA FROM+1 
@C86 AGFF LDY #$FF 
@C88 Biba INPLOP: LDA CFROM, Y 
BCBA DOO4 “OC98 BNE INPLOK 
@CBC A914 LDA #28 
GCSE 9160 STA [FROM], Y 
@C96 E661 INPLOK: INC FROM+1 ;OKIP TO NEXT PATTERN BUFFER 
@C392 E661 INC FROM+1 
8094 CA DEX 
@C95 D@Fi “@C88 BNE INPLOP 
GC97 = eB7312 JSR XTRNOF 7X & Y HOLD OFF 
@CSA 208912 JSR YTRNOF 
@C3D 208010 JSR DTRNOF ;TURN BRUSH OFF (LIFT) 
@CAG 206718 JSR DRAWNW ;TURN MAKE MODE OFF 
BCAS ecee9i1 JSR QSTOFF ;QUICK STROKE OFF 
@CAG 2OC7i2 JSR XNEGOF ;NEGATE X & Y OFF 
@CAS 288Di3 JSR YNEGOF 
@CAC 284A11 JSR LOCOFF ;LOCATE MODE OFF 
BCAF 2QD718 JSR VEROFF ;VISUALIZE MODE OFF 
@CB2 2BEAIG JSR WRPON ;WRAPAROUND OFF 
BCBS 2OBF19 JSR PNPNOF ; TURN PAINT OFF (BRUSH ON - MONITOR) 





@CB8 
@CBA 
@CBB 
@CBC 
OCBF 
GCC 
@CC4 
QCC7 
@CCé 
@CC9 
@CCA 
@CCC 
@CCE 
BCDB 
aCD3 
OCDE 
BCD9 


@CFE 
Sbei 
ODB4 


8D87 
@DBA 
BDeD 
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$AD ;==FLAK 


A231 LDX #° 1° 
8A TABLOP: TXA 
46 PHA 
8D3E1F STA XCHARI 
C3GF AND #$0F 
BD3F 1F STA XCHAR2 
CBBAGF JSR COLTAB 
68 PLA 
AB TAX 
E8 INX 
C938 CMP #° 8° 
D@EC “OCBA BNE TABLOP 
A908 LDA #8 
BD6AIF STA INIFL6 
2@D316 JSR DOFLGS 
C6064 JSR RSTREG 
68 RTS 

3 

5 

3 
2@6E1C COMAND: JSR LSTERA 
28D718 JSR VEROFF 
COBF 19 JSR PNPNOF 
evaG18 JSR DTRNOF 
299118 JSR FRZON 
AIG! LDA #$1 
AD@L1F STA REMTMP 
8D611F STA HCOUNT 
ASG LDA #8 
8D@2 iF STA RCTRI 
8D@31F 5TA RCTRe 
BD@41F STA RCTR3 
68 RTS 

3 
AD DB 

} 

} 

j 

3 
e@5B64 REENT: JSR SAVREG 
eBbe17 JSR RSETUP 
4C496D JMP LOOP 

3 

; AND HERE WE 60 

; 

: == = 

; EXTERNAL CALLS 

; SIS SSeS 

; 

; 

5 

# 
2@5B64 EXTCAL: JSR SAVREG 
ADSDIF LDA THPNUM 
48 PHA 
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SASCII CHAR TYPED 


sCOLOR NUMBER 


;WE’ RE OFF AND RUNNING ! 
;DISPLAY FLAGS IN CTL DISPLAY 


sINITIALIZATION COMPLETE 


‘TURN VERIFY OFF 

STURN PAINT OFF 

STURN BRUSH OFF 

-TURN FREEZE ON 

sLOAD UP REMOTE CONTROL COUNTERS SO THAT WE 
sAUTOMATICALLY EXIT TO CALLING PROGRAM WHEN 
sMAKE SURE EXIT IS TIMELY 


; THE COUNTERS ARE CHECKED AT NOHIT: 
;REENTRY WILL BE THRU REENT. 


REENT - COME HERE WHEN COMING BACK FROM BASIC 
ASSUMPTION IS THAT HI-RES SCREENS ARE STILL INTACT. 


;5ET THINGS UP TO BE THE WAY THEY WERE 
;BEFORE WE WENT TO COMMAND MODE. 


EXTCAL - PROCESS A SOFTWARE KB HIT 





sTHIS IS A CALL FROM THE OUTSIDE WORLD 
;GET CHARACTER AS IF HIT FROM KB 








@DGE 
ODit 
@Di2 
GD15 
SDi8 


@Di9 
BD1B 
@DIE 
eDe2i 
eD22 
eD24 
8027 
828 
8D2B 


8D2C 
OD2F 
OD32 
GD34 
8D35 
@D36 
8D39 
8D3B 
@D3E 
@D3F 
8D48 
604i 
@D44 
@D45 
@D48 


e@7E17 
68 
28198D 
cR6D64 
68 


Sate 
AD3D1F 
BD7E1F 
48 
AIG 
BDSG1F 
68 
eB848D 
68 


e@5B64 
2@7E17 


B9@078 


F@G9 “@D44 


28198D 


4C340D 


286064 


AIG 

8D4G1F 
BD8G1F 
ADQOCS 


1848 “@DAl 


2@5C8D 
4C91@D 


e97F 

BD3D1F 
BD7E1F 
BD4O1F 
ADIGCe 
ADBSiF 


F@3 “@D72 


4C498D 
e@D864 
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5 
EXTCLi: 


=~" oe SS wee 


EXTLOP: 


DONEXT: 


ae Mee we 


rn" ae 


OOP: 


5 
YESHIT: 


YESOK: 


TCAL: 


JSR 
PLA 
JSR 
JSR 
RTS 


AND 
STA 
STA 
PHA 
LDA 
STA 
PLA 
JSR 
RTS 





RSET 
EXTCLi 
RSTREG 


#$7F 
TMPNUM 
TEMP 


#8 
HITTYP 


STILUS 





JSR  SAVREG 
JSR RSET 
LDY #0 
TYA 
PHA 
LDA = EXTTBL,Y 
BEQ  —-DONEXT 
JSR — EXTCL1 
PLA 
TAY 
INY 
JMP — EXTLOP 
PLA 
JSR —_-RSTREG 
RTS 

MAIN PROGRAM LOOP 
LDA tsé 
STA CHRHIT 
STA —sHITTYP 
LDA SCOMG 
BPL = NOHIT 
JSR —-YESHIT 
JMP = NOHIT 
AND —«-#$7F 
STA TMPNUM 
STA TEMP 
STA CHRHIT 
LDA SCOIB 
LDA = s«@STXEA 
BEQ =: YESOK 
IMP LOOP 
JSR SOUND? 





EEE EE EEE I ESNY'CX ——CS*~S~SE OT EL LL LL 


72/72/22 29:97) Page 5 
PPiG Ss ASM 
sESTABLISH @ PAGE LOCATIONS USED 


;RESTORE REGISTES 


sHACK OUT PARITY BIT 


sHIT TYPE = EXTERNAL (NOT KB) 


sPROCESS IT 


MLTCAL - EXTERNAL REQUEST W/MULTIPLE KB HITS 


;9ET UP @ PAGE LOCATIONS 


sSAVE CURRENT POINTER TO EXTERNAL KB HIT 
:GET KB HIT 

:@ 1S END MARKER 

:PROCESS IT 


sPDINT TO NEXT CHAR 


;oET CHRHIT SUCH THAT CALLING ROUTINE WILL 
;TELL IT FROM ASCII CHAR IN CASE WE TIME OUT. 
;5ET HIT TYPE = EXTERNAL 
sKB HIT? 

sNOPE 

sPROCESS IT 


sCAN THE PARITY BIT 
‘KEEP DA CHAR 

sKEEP IT HERE, TOO 

‘SAVE FOR EXTERNAL CALLER 

‘KILL KB FLAG 

sDURING EXECUTION OF A QUICKSTROKE, IGNORE 
‘ALL KB HITS 


;ACKNOWLEDGE HIT WITH *BIP!? 
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@D75 EEBgIF INC -HITTYP ‘SET HIT TYPE = KB 
@D78 ADALiF LDA ~—s:sHITFLE SHOW ARE WE SUPPOSED TO RESPOND? 
QD7B 3020 “@D9D BMI  NOACT ‘IGNORE ALL KB HITS. 
@D7D Fees “eD84 BEQ = STILUS ¢RESPOND NORMALLY 
QD7F AOD LDA «BSD “RETURN TO USER - FAKE A CARRIAGE RETURN 
@bai AD7E1F STA TEMP 
@D84 ADTEIF STILUS: LDA TEMP *GET CHARACTER BACK 
@D87 E961 SB O#S$G1 eSUBTRACT 97 DECIMAL 
apa9 2003 “ODee BMI SM97 
adap 4c9peD JMP ——-NOACT sTGNORE ) 96 
Q@DBE ADTEIF SM97: LDA TEMP ‘ADD TWICE TO 
@D91 &D7E1F apc = TEMP ‘OFFSET INTO ADDRESS TABLE 
9094 aD9gFeD STA JMPLO eSTORE OFFSET 
@D97 ADSDIF LDA = TMPNUM *GET BACK A SINGLE COPY 
@D9A 2a9EaD JSR JMPIND eMAKE IT INTO SUBROUTINE 
se INDIVIDUAL SUBROUTINES? RETURNS WILL 
*GET CONTROL BACK HERE 
@D9D 62 NOACT: RTS eRETURN FROM HIT PROCESSING 
§ 
@D9E 6c JMPIND: DB $6C ;JMP INDIREC 
@D9F 0063 JMPLO DW JMPTBL 
3 
@DAi CEGLIF NOHIT: DEC  HCOUNT eSEE IF IT'S TIME TO DRAW/ENTER YET 
@DA4 CESFIF DEC —«-CCOUNT *QUR PADDLE READ INDICATOR 
Q@DA7 ADSFIF LDA = CCOUNT 
Q@DAA 2983 AND «3 ‘SET TO READ PADDLE @-3. 
@DAC 200417 JSR GETPAD *READ PADDLES & SCALE 
@DAF 200618 JSR —APLOC ‘APPLY LOCALLY 
eDB2 2@C918 JSR —-GETVEC ‘APPLY TO REGISTERS & INTEGRATE W/STUFF FROM 
‘PRIOR KB HITS, COMING OUT WITH BUSEX, BUSEY. 
@DBS 206519 JSR  SAWEC eSAVE VECTOR IN STROKE BUFFER IF IN VERIFY. 
*GET VECTOR FROM STROKE BUFFER IF DOING A QUICK 
SC)THERWISE JUST PASS ON BUSEX & BUSEY. 
Q@DB8 ADGLIF LDA = HCOUNT 
@DBB FOIB “@DDa BER =—sCNTOR ‘COUNT IS UP 
QDBD AD7FIF LFRZ@: LDA  CHBFLE ‘ANY CHANGES FROM LAST TIME? 
ance Fee? “@Dcs BEA —«-NOCHG@ s NOPE 
QDC2 206E1C JSR _LSTERA ‘YES, WE HAVE TO ERASE 
@DC5 AD3@1F NOCHG@: LDA —-ERSFLG “IF ERASE FLAG ON, THEN LEAVE IT UP THERE. 
QDC8 2003 “@DCD BMI -RELOPY 
@DCA P@CAIC JSR -DRAWIT ¢PUT IT UP THERE IN NEW FORM. 
@DCD Agee RELOPY: LDA #0 *CLEAR CHANGE FLAG 
Q@DCF 8D7FIF STA —CHGFLE 
QDD2 201218 JSR BASDSP 
@DDS 4C49eD jmp = LOOP 
3 
@DD8 ADEGIF CNTOVR: LDA ——CURCNT ¢RESTORE COUNTER 
Q@DDB AaD6LiF STA HCOUNT 
@DDE ADASIF LDA = QSTXEQ sEXECUTING QUICKSTROKE? 
QDE1 DO2E “EI! BNE —_LPOK ‘IF SO, DON’T DECR OR CHECK COUNTERS 
Q@DE3 ADe1IF LDA ss REMTMP *UNDER REMOTE CONTROL OR MAKING EXIT? 
QDE6 FOIF “9E07 BEQ =sNOREM “NOPE 
@DEB ADOAIF LDA RETR 
QDER D@17 “OER4 BNE DECR3 





@DED 
GDFS 
@DF2 
@DFS 
GOF7 
@DFA 
@DFD 


@DFE 
GE@1 
GEB4 
BER? 
GEBA 
GEST 
GEQF 
@E11 
@E14 
GE 16 
GE19 
GEIB 


@E1E 


GE21 
GE23 


GE4D 


ADQS1F 
DO@F “GEG1 
AD@21F 
D@O7 “ODFE 
P@GE1C 
eB6D64 

68 


CE@21F 
CE@31F 
CE@41F 
ADBS1F 
D@SS “OE11 
AD671F 
i@AC “@DBD 
EE@71F 
DGB “BEIE 
EEQ61F 
DOB3 “BEIE 
EE@S1F 


ADBS1F 
FQQ7 “@E2A 
AD691F 
182B “@ES3 
DG17 “OE41 
ADBI1F 
D@24 “BESS 
AD6DIF 
3888 “GEC 
AD6BIF 
1888 “@E41 
4CC70E 
AD691F 
1812 “@ES3 


AD441F 
8D3BiF 
AD4S1F 
BD3CIF 
e@hA16 
4CC7@E 
AD441F 
@D451F 
FOEC “@EC7 
P@6EIC 
ACS7iF 
F@@7 “@E6A 
CCeALF 
F@i2 “@E7A 
9818 “@E7A 
AD6BIF 
1888 “@E7A 
cO7B14 
ABA 
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b 

DECRI: 
DECRe: 
DECR3: 
NOREM: 


LPOK: 


3 
NORREM: 


MECHEK : 


LPNGST: 


LPNTVI: 


: 
ADDVEC : 


ENTER: 


ENTNOK 


LDA 
BNE 
LDA 
BNE 
JSR 
JSR 
RTS 


DEC 


LDA 
STA 


STA 
JSR 


LDA 
DRA 
BEQ 
JSR 
LDY 


CPY 


RCTR2 
DECRE 
RCTR1 
DECR1 
LSTERA 
RSTREG 


RCTR1I 
RCTRe 
RCTR3 
ORGFLE 
LPOK 
FRZFLG 
LFRZ@ 
TCTRS 
NORREM 
TETRe 
NORREM 
TCTRi 


GSTXEG 
LPNGST 
MEFLAG 
ENTER 

ADDVEC 
ORGFLG 
ENTER 

VISFL6 
LPNTVI 
LOCFL6 
ADDVEC 
DRAWER 
MEFLAG 
ENTER 


USEX 
TEMPX 
USEY 
TEMPY 
MOVSTT 
DRAWER 
USEX 
USEY 
DRAWER 
LSTERA 
TPTR 


MAXPTS 
IZOKAY 
TZOKAY 
LOCFL6 
TZOKAY 
ESORGE 
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sERASE LAST BEFORE LEAVING 
sCOUNTERS ARE EXHAUSTED, LET'S RETURN 


;60ING BACK TO ORIGIN (ENTER)? 


sWE’ RE FROZEN, GO NO FURTHER. 


sIF WE'RE DOING A QSTROKE, BRANCH ACCORDING TO 
;WHETHER WE? RE ENTERING OR MOVING. 


sENTERING 

;MOVING 

;IF RE-ORIGINATING IN ENTER. 

s VISUALIZING? 

3NO 

*1S LOCATE ALSO ON? IF SO, THEN WE WANT TO MOVE 


sAS OPPOSED TO JUST DRAWING THE STROKE. 
;JUST DRAW IT. 


sMOVE STARTING POINT BY (TEMPX, TEMPY) 


sDON’T ALLOW *EM TO ENTER (@,@) 


sERASE IF SUPPOSED TO 


;SEE IF WE°RE STARTING/BACK TO @ PTS. 


sAVOID MANY BLEEPS IF IN LOCATE 


sREESTABLISH PATTERN ORIGIN 
;MAX PATTERN LENGTH EXCEEDED, START OVER 
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@E74 8CS71F STY TPTR 
GE77 BC9LIF STY TBSPTR 
BE7A AE44iF IZOKAY: LDX USEX 
@E7D ADSBiF LDA LOCFL6 ;WE HAVE TO SEE IF WE'RE *L°OCATING NEXT PT. 
BESS Bie “GES4 Ba ENTNAD ;NOPE 
@EB2 = ADASIF LDA USEY ;GET Y VECTOR 
@E85 88 DEY ;BACK UP TO WHAT IS LAST VECTOR THAT COUNTS. 
@EB6 18 CLC 
@EB7 716A ADC CTBASEY], Y ;ADD OUR CURRENT VECTOR TO IT. 
BEB9 916A oTA CTBASEY], Y 
@EaB 6A TXA 
@EBC 18 CLE 
@EBD 7168 ADC CTBASEX], ¥ 
BEBF 9168 STA CTBASEX], Y 
@E91 4C9CGE JMP ENTCKL 
GES4 AD4SiF ENTNAD: LDA USEY 
@ES7 916A STA CTBASEY], ¥ 
GE9S 8A TXA 
@ESA 9168 STA CTBASEX], Y 
GEST CB ENTCKL: INY 
@E9D 8CS7iF STY TPTR 
@EAG ADBEIF LDA EQRGX ;NOW ADD THE CURRENT VECTOR TO THE VECTOR THAT 
BEAS 38 SEC 
@EA4 ED44iF SBC USEX ;WILL BE REQUIRED TO GET US BACK TO OUR ORIGIN 
GEA? 8DBEIF STA EQRGX 
BEAR ADBFIF LDA EORGY 
BEAD 38 SEC 
@EAE EDASIF SBC USEY 
@EBi 8DaFiF STA EORGY 
@EB4 ADESIF LDA TRMFLG ;NOW CHECK OUT TARGET SIZING MODE 
GEB7 3003 “QEBC BMI IZNLCK ;ISN'T IN LOCK MODE 
@EB9 ACPAIF LDY MAXPTS ;PATTERN LENGTH AND 
@EBC AC2BIF IZNLCK: STY NUMPTS ;# POINTS DISPLAYED = MAX LENGTH IF IN LOCK. 
@EBF 938 TYA 
BEC@ ABFF LDY #$FF 
BEC2 9168 STA CTBASEX], Y ;UPDATE INHERENT PATTERN LENGTH AS WELL. 
@EC4 eBADIB JSR TSZD5P ;DISPLAY # PTS 
3 
@EC7 eB6E1C DRAWER: JSR LSTERA ;ERASE LAST THING WE DISPLAYED 
BECA 2@CAIC JSR DRAWIT SAND DRAW ANEW 
@ECD ADS4iF LDA CUMODE 
@ED@ D@I9 “OEEB BNE RELOOP ;NOT PICTURE (MASTER) MODE 
@ED2 ADEBIF LDA LOCFL6 ;IF LOCATE OR VISUALIZE IS ON, THEN IGNORE STAT 
@EDS 1014 “OEEB BPL RELOOP 
@ED7 ADEDIF LDA VISFL6 ;0F BRUSH ON/OFF. 
GEDA 180F “EER BPL RELOOP ;ONE OF THEM IS ON. 
BEDC ADACIF LDA OFFLAG ;IF WE'RE OFF SCREEN, THEN WE WON'T LEAVE 
@EDF F@BA “@EEB BEQ RELOOP sANY TRAILS BEHIND. 
@EE1 ADGBIF LDA DRWFLG 315 BRUSH UP OR DOWN? 
@EE4 3005 “EER BMI RELOOP ;UP 
@EEE AIRB LDA #8 ;DOWN, WE WON'T HAVE TO ERASE IT. 
@EEB AD301F STA ERSFL6 ;CLEAR *HAVE TO ERASE? FLAG. 
GEEB ASG RELOOP: LDA #0 ;CLEAR *HAVE CHANGED’ FLAG 
BEED AD7FIF STA CHGFL6 
GEF® 8DASIF STA ORGFLG ;CLEAR *0°RIGINATING FLAG 
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/usr/eric/cfm/PP16 PAINTER POWER 1G 11/13/83 19:87:35 PPiG . ASM 
@EF3 ADALIF LDA PTCNT sNOW SET OFF SCREEN FLAG = @ IF NO PTS WERE 
@EF6 ADACIF STA OFFLAG sDRAWN ON SCREEN LAST TIME. 
EFS ADB4iF LDA KBFRCH sNOW SEE IF WE*RE SUPPOSED TO REINSTITUTE THE F 
@EFC FOO8 “OFO6 BEQ LPNKFR sNOPE 
QEFE AIGd LDA #0 
OF@@ 8DB4iF STA KBFRCH 
Q@FO3 4CO@DOF JMP LPFRZ | 
OF@6 ADG2IF LPNKFR: LDA CSPEED sSINGLE STEP? 
OFOS C953 CMP #°S? 
OF@B DOQ3 “OF18 BNE NOFRZZ sNO 
@FOD 289118 LPFRZ: JSR FRZON ;TURN FREEZE BACKON 
@F16 4C490D NOFRZZ: JMP LOOP :AND ON AND ON AND ON... 
; 
; 
; 
3 
HHH HHH HHH HHH HGH HH HHH HHH 
§ 
QF13 5@41494E54 DB PAINTER POWER? 
F208 28434F5059 DB * COPYRIGHT (C) 1981 BY ERIC S. PODIETZ ’ 
@F47 5345524941 DB SERIAL # A-@0524' 
CHHEEE HEHEHE EEE EEE EEE EEE 
; 
; 
; 
9‘ SESEasSaerTEsseeesasees sass 
; FOLLOWING ARE THE KB HIT 
; HANDLING ROUTINES. 
SS ee pon —npornmrmeod 
; 
5 
; NONFUN: NON-FUNCTIONAL KEY HIT - JUST RETURN 
oe 
§ 
OF57 280064 NONFUN: JSR SOUND sBELCH AT *EM 
Q@F5A 68 RTS 
; 
§ 
; COLMDE - CHANGE COLOR SELECTION MODE (KB OR PDL{1-4)) 
a 
b 
QFSB ADSGIF COLMDE: LDA HITTYP 
OFSE F@03 “@F63 BEG COLMOK 
OF68 4CD064 JMP SOUND sKB HIT - NO GOOD, USER 
@F63 AD3ZEIF COLMOK: LDA XCHARI 
@F66 &8D77IF STA DSCLFE sUPDATE DISPLAY FLAG 
O@F69 C94B CHP #°K! 31S IT KEY BOARD 
@F6B DO@6 “@F73 BNE COLMNK 
@F6D AIGA LDA #8 
QFEF AD761F STA COLFLG 
OF7e 68 RTS 
QF73 2907 COLMNK: AND #497 
Q@F75 8D76iF STA COLFLG 
QF78 68 RTS 
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: 
; COLCHGS - PROCESS CHANGE IN PAINT COLOR 





@F73 ACTEIF COLCHG: LDY COLFLG ;BELCH IF COLOR CONTROL IS PADDLES 
OF7C FOB4 “FSC BEG COLCKB 
@F7E 2@DG64 JSR SOUND 
QFBi 68 RTS 
3 
OF82 290F COLCKB: AND #$0F sHACK OUT ASCIT 
@FB4 BD7AIF STA BCOLOR sSAVE IN BACK-UP COLOR 
GF87 B9B DRA #$B9 sMAKE IT ASCIT IF IT WASN'T 
@F89 8D7BIF STA DSCOLR ;FORM CHARACTER FOR CTL DISPLAY 
@FS8C AGIE LDY #TXCOLR 
@FBE 2OBAI7 JSR DPAGE2 
@F91 ADS4iF LDA CUMODE sNOW: IF WE’RE IN MONITOR, DON’T PHYSICALLY 
@F94 De22 “@FBE BNE CGPNOF ; IMPLEMENT THE COLOR CHANGE. WAIT. 
@F96 AD7AIF LDA BCOLOR 
3 
; COLCH2 IS ENTRY POINT FOR WHEN WE WANT TO CHANGE ONLY COLOR DISPLAYED, BUT 
; NOT BACK-UP COLOR. THIS ENTRY IS USED WHEN SETTING MONITOR MODE. 
3 
OF99 = 290F COLCHe: AND #$0F 
@F9B &8D78iF STA CCOLOR ;UPDATE CURRENT COLOR DISPLAYED 
Q@FSE AA TAX 
G@FSF BDO71F LDA COLORS-1, x 
: ;GET A COLOR 
: ;CODE FOR 1-8 
@FA2 aD4iiF STA HCOLOR ;NEW COLOR ! 
@FAS &D4eiF STA HCOLR2 ;NOW WE HAVE TO SHIFT IT FOR DISPLAY OF 
@FAB A ASL 4 ODD BYTES. 
@FAS CSCO CMP #$C8 
Q@FAB 1808 “@FBS BPL RTS 
@FAD AD4c1F LDA HCOLR2 
QFBS 497F EOR #$7F 
@FB2 &D4eir STA HCOLR2 
OFBS cB6EIC RTS1: JSR LSTERA sERASE WHAT WE DREW IN OLD COLOR 
@FBB 68 CGPNOF: RTS 
3 
@FB9 AD DB $AD ;==FLAK 
| 
; COLTAB - UPDATE COLOR LOOKUP TABLE (CALLED BY SET-UP MENU) 
. AL Nene ese Rtn one 
3 
@FBA AEBGIF COLTAB: LDX HITTYP 
QFBD FQO3 “OFCe BEG COLTOK 
QFBF 4CD864 JMP SOUND 
@FC2 = AESFIF COLTOK: LDX XCHAR2 ;GET COLOR # WE'RE ON 
@FCS ADSEIF LDA XCHAR1 ;GET ASCII CHARACTER HIT (1-8) 
@FC8 SDGFIF STA ACLODK-1, x sS1ORE IN ASCII 
@FCB 290F AND #$0F 
@FCD SDI7IF STA DCLOOK-1, X sOTORE FOR INTERNAL USE 
OFD@ eG@6EIC JSR LSTERA sERASE, SINCE THIS LITTLE CHANGE HERE 
OFD3 69 RTS ;COULD AFFECT CURRENT COLOR. 
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OFD4 
OFD? 
OFDS 
GF DB 
@FDD 


OFEB 
OFES 
OFE6 
@FEB 


OFEC 


OFFe 
OFF 3 


OFFB 


OFFS 


1061 
1804 


1885 
1088 
198B 


18@C 


198D 
1818 
i@ie 
1815 


B62 iF 
C953 


Dee “OFDD 


BSIF iF 
8D6G1F 


8D611F 


A938 
eOD40F 


AIS 
COD4OF 


AIS 
C@D40F 


2OD40F 


AD7CiF 


eO1F 18 
68 


AD 


ADBG1F 


FQ@3 “1815 


4CDO64 
ADSEIF 


; 
; UPDSPD - UPDATE SPEED CONTROL (CALLED FROM OUTSIDE) 


Ee CAD EO ES UE YS OO ERY A AER SNE OE RES RE NED ET ONES ES AE RN NS SRR CRE. a ca I ll A IO ON TY LE EY AEE RES AY MY SK RR SE A 
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eo wee 


3 


UPDSPD: STA CSPEED 

CMP #5’ 

BNE UPSNTS ;NOT SINGLE STEP 

LDA #8 360 AT FULL TILT WHEN IN SINGLE STEP 
UPSNTS: AND #$0F 

TAY sFORM HOOK INTO SPEED TABLE. 

LDA SPEEDS-1, Y 

STA CURCNT 

LDA #1 

STA HCOUNT sSET COUNTER SO THAT NEXT TIME THRU MAIN LOOP 

RTS ;SPEED WILL BE CHANGED TO NEW SPEED. 
3 

DB $AD ;==FLAK 


BLITZ, RABBIT, TURTLE & SNAIL: SPEED SETTINGS 


BLITZ: LDA 4° :HIGH SPEED, BRO.. 
JSR _- UPDSPD 
RTS 

RABBIT: LDA #5) 
JSR —_ UPDSPD 
RTS 

3 

TURTLE: LDA s#°2! 
JSR _- UPDSPD 
RTS 

b 

SNAIL: LDA = #°5! 
JSR _ UPDSPD 
RTS 


28 ame wee 


ae wee 


CLEAR ENTIRE SCREEN TO ORIGINAL BACKGROUND COLOR 


CLROLD: LDA BKCOLR ;GET BACKGROUND COLOR 
JSR DOBKND 
RTS 

5 
DB $AD ;==FLAK 


ee) ee ee | er 


CHBKND - CHANGE HI-RES BACKGROUND (CALLED EXTERNALLY) 


CHBEND: LDA HITTYP 
BEG CHBOK 
JMP SOUND 

CHBOK: LDA XCHARI 


1818 
18iB 
1GiE 


101F 
1821 
1824 
1627 


182D 
1838 
1833 
1036 
1839 
183C 
183E 
1841 


1845 


BD7DiF 
eWIF19 
68 


C9OF 
BD7C1F 
C@6E1C 
ADS41F 
8DSS1F 
269511 
AD7C1F 
COS9GF 
e@7E1D 
ADISIF 
FOB4 “1042 
2R661 1 
68 
209511 
69 


ADES1F 
181C “1867 
AIS 
BDS71F 
8DS11F 
AEBS LF 
3083 “1058 
AD2AIF 
AGFF 

9168 
BDEBIF 
ASBD 
4C6918 
ASCD 
BDESIF 
ARIE 
e@BA17 
2@ADIB 

68 


AD 
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2S BR ame 


STA 
JSR 
RTS 


S 
S 
= 


CHBMAS : 


me SE wm ee 


ee 


SWMODE : 


DRAWNW: 


UPMODE : 


28 we Se woe 


te cam A fe oe RS cS CAEN Sd aR ROMS NaS OE TEU SREY SR SUBS mS otek? hoe ME | 


LDA 
BEQ 
JSR 
RTS 
JSR 
RTS 


LDA —MEFLAG 

BPL DRAWNW 

LDA «HS 

STAs TPTR 

STA TBSPTR 

LDX  TAMFLG 

BMI SWHNLK 

LDA —sMAXPTS 

LDY = #$FF 

STA —sCTBASEX],Y 
STA NUMPTS 

LDA sD 

JMP — UPMODE 

LDA Ss SCD 

STA NEFLAG 

LDY —- ST XMODE 
JSR PAGE? 

JSR‘ TSZDSP 

RTS 

DB $AD :==FLAK 


DSBKND 
DOBKND 


BKCOLR 
LSTERA 
CUMODE 


MASTER 
BKCOLR 
COLCHe 
HBKGND 
MONITR 


MASTER 


22/22/97 27:72) Page 12 
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760 CHANGE IT 


DOBKND - CHANGE HI-RES BACKGROUND 


;UPDATE BACKGROUND COLOR 


sDO IT REGARDLESS OF WHAT MODE WE?RE IN, 
sWE WANT TO 'FLASH’ THE NEW BACKGROUND COLOR. 
sSWITCH TO PICTURE 


;CHANGE TO NEW BACKGROUND COLOR. 
3D0 IT ! 

sRESTORE PREVIOUS MODE 

3’ TWAS MASTER 


;RESTORE PAINT MODE AND PAINTING COLOR 


FLIP BETWEEN DRAW/ENTER MODES 





sWHERE ARE WE NOW? 
‘WE? RE ENTERING 
sCLEAR OUT DISPLACEMENT PTR TO TARGET 


sWHAT!S THE SIZING MODE? 
‘NOT PADDLES 

‘FORCE # OF PTS TO BE = MAXIMUM 
sUPDATE SIZE OF PATTERN 


sWE’ RE ENTRERING A NEW PATTERN 
;AN INVERTED *M’ FOR MAKE 


;AN *M? FOR MAKE OFF 


;UPDATE CONTROL DISPLAY 


= 
5 
2 
z 


/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:07:35 PPiG «= ASM 
3 
1076 AD6S1F DRAWON: LDA = DRWFLG 
1979 1005 “1080 BPL - DTRNOF *WE?RE DRAWING, LET'S CUT IT OUT. 
1978 AILS DTRNON: LDA «$15 
1@7D acacia JMP —-DUPMDE 
108@ AIDS DTRNOF: LDA ss #$D5 :A NORMAL LU? FOR UP 
1982 aD681F DUPMDE: STA —-DRWFLG 
1985 A027 LDY = TXDRWF 
1087 20BA17 JSR -DPAGE2 sUPDATE CONTROL DISPLY 
198A 60 RTS 
3 
1@8B AD DB $AD +==FLAK 
? 
» FREEZE - FLIP FREEZE FLAG 
Aes 
3 
198C ADS67IF FREEZE: LDA —-FRZFLG 
1@8F 1085 “1096 BPL _ LKMODE 
1091 AI2@ FRZON: LDA #820 *A BLACK ON WHITE SPACE 
1093 4COFI@ JMP —- FUPMDE 
1096 ADS41F LKMODE: LDA © CUMODE :DON’T UNFREEZE IF IN TEXT MODE 
1099 Foee “1e9D BEQ = FTRNOF 
1998 100A “1007 BPL -NOUNF 
1e9D AgAG FTRNOF: LDA = #$A@ sNORMAL SPACE 
1Q9F BDE7IF FUPMDE: STA — FRZFLG 
1@A2 AQSE LDY —-#TXFREZ 
1994 20AC17 JSR PAGE! sUPDATE CONTROL DISPLAY 
1007 60 NOUNF: RTS 
3 
19A8 AD DB $AD +==FLAK 
b | 
+ PNTHIT - TOGGLE BETWEEN PAINT (MASTER) AND MONITOR MODES. SAME AS BRSHIT. 
3 
3 
1989 206E1C PNTHIT: JSR —_LSTERA 
1@AC ADSEIF LDA —s PNTFLG :WHERE ARE WE NOW? 
1QAF 100E “1OBF BPL - PNPNOF ‘WERE PAINTING, GET RID OF PICTURE. 
1@B1 209511 PNPNON: JSR MASTER sSWITCH TO PICTURE 
1084 AIL® LDA «S10 s INVERSE P* FOR PAINT 
1QB6 ADGEIF STA —PNTFLE 
1089 A@A7 LDY —- #TXPNT 
{@BB 20AC17 JSR -DPABE1 
10BE 60 RTS 
3 
10BF 206611 PNPNOF: JSR MONITR :SWITCH TO MONITOR 
1ac2 AgDe LDA «RSD ‘REGULAR *P? FOR PAINT OFF. 
10C4 SD6E1F STA —sPNTFLG 
1@C7 AGAT LDY —-@TXPNT 
1@C9 20AC17 JSR PAGE! 
1@CC 60 RTS 
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i 
; VERHIT - TOGGLE VISUALIZE MODE 
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/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:87:35 PPiG =. ASM 
3 
18CD ADEDIF VERHIT: LDA =: VISFLG 
1@D@ 1985 “18D7 BPL VEROFF 
i@D2 AIG VERHPT: LDA #$16 ; INVERSE *V’ FOR VISUALIZE ON 
1GD4 40916 JM VERUPD 
18D7 ASDE VEROFF: LDA #$D6 
1@D9 S8D6DIF VERUPD: STA VISFLG 
i@DC AGBA LDY #TXVER 
1@DE 20ACi7 JSR DPAGEI 
1@Ei 2@6E1C JSR LSTERA sERASE WHATEVER IT WAS WE LAST DISPLAYED. 
19E4 68 RTS 
q 
; WRPHIT - TOGGLE WRAPAAROUND MODE 
ooo 
3 
i@ES «AD7LIF WRPHIT: LDA WRPFLG 
1GEB 1888 “18Fe BPL WREOFF 
iGEA 2OF6iD WRPON: JSR HGHCLR sCLEAR HIGH ORDER BITS OF SCREEN LOC SO THAT 
;OBJECT 1S FORCED TO BE WITHIN SCREEN LIMITS. 
1@ED ASI7 LDA #$17 ; INVERSE *W? FOR WRAPAROUND 
1@EF 4CF418 JMP WRELUPD 
i@F2 AID? WRPOFF: LDA #07 
19F4 8D71iF WRPUPD: STA WRPFLG 
18F7 ABBA LDY #TXWRP 
1QF9 2OBAI7 JSR DPAGE? 
1@FC ACS41F LDY CUMODE ;IF WE'RE PAINTING, THEN WE SHOULD INSTIUTE 
1@FF 388C “118D BI WRPEXT ;THE CHANGE. IF IN MONITOR WE'LL FORCE 
1181 AD7i1F LDA WRPFLG 
1184 8D981F STA WRPIND ;WRAPAROUND TO BE ON. 
1187 2@6E1C JSR LSTERA 
11@A 2@B9iC JSR WRAPAT 3D0 THE PATCH TO DRAWIT 
118D 68 WRPEXT: RTS 
% 
; GSTHIT - TOGGLE QUICK STROKE MODE 
rn 
3 
118E AD7BiF QSTHIT: LDA GSTFLG 
1111 1816 *1129 BPL GQSTOFF 
1113 A9@8 LDA #8 ;RESET POINTERS TO BEGINNING OF QUICKSTROKE 
1115 8D87iF STA OPTR 
1118 8DS8iF STA SPTR ;BUFFER 
111B 8D921F STA BSPTR 
111E 2@AIB JSR SSZD5P 
li2i 2@6E1C JSR LSTERA 
1124 AIL LDA #$11 ; INVERSE *@° FOR QUICK STROKE 
1126 4CeB1i JMP GSTUPD 
1129 ASDI QSTOFF: LDA #$D1 
112B 8D7@1F GSTUPD: STA QSTFLG 
112E ABBA LDY #TXQST 
1138 2@BR17 JSR DPAGE2 
1133 68 RTS 


ee) ee) 


LOCHIT - TOGGLE LOCATE MODE 


1134 
1137 
1139 
1130 
Lig 
1142 
1145 
1147 
114A 
114D 
114F 
1152 
1155 
1158 
115B 
115D 
1168 
1162 
1165 


1166 
1169 
116C 
116E 
1171 
1173 
1176 
1179 
117B 
117E 
1188 
1183 
1185 
1188 
1188 
118D 
1198 
1193 


1194 


1195 
1198 


119B 
119D 
LiA@ 
11Ae 


ADEB1F 
1811 “114A 
ADASIF 
BD441F 
ADASIF 
AD451F 
AS@C 
4CSDi1 
AD6BIF 
30@C “1158 
AD441F 
8DA41F 
ADAS1F 
ADASIF 
ASCC 
8D6BiF 
ABS4 
e@ACI7 

68 


C@GE1C 
ADS41F 
3083 “1171 
283864 


e@7E1D 


8D541F 


A981 
8D941F 
e@2416 
A917 
8D981F 
e@B9iC 


2@6E1C 
ADS41F 


FQB3 “11AG 
281464 
AIG 
8D541F 
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LOCHIT: LDA 
BPL 
LOCGN: LBA 
STA 
LDA 
STA 
LDA 
JMP 
LOCOFF: LDA 
BMI 
LDA 
STA 
LDA 
STA 
LOCAOF: LDA 
LOCUPD: STA 
LDY 
JSR 
RTS 


LOCFLG 
LOCOFF 
LOCX 
USEX 
LOCY 
USEY 
#360 
LOCUPD 
LOCFLG 
LOCAOF 
USEX 
LOCX 
USEY 
LOCY 
#$CC 
LOCFL6 
#TXLOC 
DPAGE 1 
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sRESTORE PREVIOUS LOCATE VECTOR 


sINVERSE *L’ FOR LOCATE 


;CHECK IF LOCATE ALREADY OFF 


;IF ON, THEN SAVE CURRENT LOCATE VECTOR. 


;  MONITR - DISPLAY MONITOR SCREEN 


j 
MONITR: JSR 


LSTERA 


LDA CUMODE ;DON’T COPY IF WE'RE ALREADY IN MONITOR. 


BMI 
JSR 
NOCOP@: LDA 
JSR 
JSR 
LDA 
STA 
LDA 
JSR 
LDA 
STA 
JSR 
LDA 
STA 
JSR 
RTS 


DB 


Oe x OM 


MASTER: JSR 
LDA 


BEG 
JSR 
NOTHN6: LDA 
STA 


NOCOPS 
COPYTO 
#6 
COLCHe 
HBKGND 
#$FF 
CUMODE 
#3 
COLCHe 
#1 
PNMIND 
PNMSET 
#$17 
WRPIND 
WRAPAT 


$AD +==FLAK 


MASTER - DISPLAY PICTURE 


LSTERA 
CUMODE 


NOTMNG 
COPYBK 
#40 

CUMODE 


;COPY HGR PAGE 1 TO HGR PAGE 2 

;OWITCH TO BLACK BACKGROUND FOR MONITOR. 
sESTABLISH MONITOR MODE 

;DRAW IN WHITE WHEN IN MONITOR MODE. 


SALWAYS USE NORMAL PAINT MODE 
‘WHEN IN MONITOR. 


‘ALWAYS KEEP WRAPAROUND ON WHEN IN 
sMONITOR MODE 


;1F WE'RE NOT IN MONITOR MODE, THEN DON’T 
;BOTHER COPYING HGRe TO HGRi. DON’T DO EITHER 
;IF IN MASTER, CAUSE WE'LL BE COPYING OLD IMAG 


sRESTORE MODE TO DISPLAY PICTURE. 


1iA5 
1188 
LiAB 
LIRE 
LiBi 
11B4 
11B7 
11BA 


11BB 


11BC 
11BF 
1108 


11C3 
11C6 
11€7 


11CA 
11CD 
11CE 


11D1 
11D4 
11D5 


11D8 


1iDB 
LiDE 
L1E1 
11E3 
11E5 
11E8 
LIEA 
L1EC 
L1EF 


11Fe 
11F5 
11F7 
11F8 
11FB 
11FD 
LIFE 
LiFF 
1201 
1282 
1204 
1287 


ADS3IF 
2OBAIE 
AD7LIF 
BDSB1F 
eOBSIC 
AD7AIF 
COSIOF 
63 


AD 


eesei2 
CA 
4CDB11 


easei2 
E8 
4CDB11 


ebsei2 
C8 
4CDB11 


eesel2 
88 
4CDBi1 


eesei2 


BECBIF 
8Ce91F 
A288 

ABER 
AD6B1F 
3088 “11Fe 
AFF 
8D6CiF 
4Cegie 


AD741F 
3081 “11F8 
E8 

AD?S1F 
3001 “LIFE 
C8 

BB 

FOO? “1208 
CA 

F8@5 “1209 
CODRE4 

68 
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2G wae ee 


KBLEFT: 


5 
KBRGHT : 


3 
KBVE33: 
KBNOCX : 


KBNOCY : 


LDA 
JSR 
LDA 
STA 
JSR 
LDA 
JSR 
RTS 


DB 


JSR 
DEX 
JMP 


JSR 
INX 
JMP 


JSR 
INY 
JP 


JSR 
DEY 
JMP 
JSR 
STX 
STY 
LDY 
LDA 
BMI 


5TA 


~ «SRP 


PNMFLG 
PNMHIT 
WRPFLG 
WRPIND 
WRAPAT 
BCOLOR 
COLCH2 


$AD ;==FLAK 


KB VECTOR HANDLERS 


KBSTUP 


KBVECH 


KBSTUP 


KBVECH 


KBSTUP 


KBVECH 


KBSTUP 


KBVECH 


KBSTUP 


SAVEX 


LOCFLG 
KBVE33 
#-1 

CURLOC 


XCRUISE 
KBNOCX 
YCRUISE 
KBNOCY 


KBOK 1 
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sRESTORE PAINT MODE TO WHATEVER IT WAS 


;RESTORE WRAPAROUND CTL TO WHATEVER IT WAS 


;RESTORE PAINT COLOR 


;SET UP X & Y REGS FOR ADD OR SET, 
sDEPENDING IF ASCII CONTROL BIT IS SET. 
:60 LEFT 


360 RIGHT 
360 UP 


360 DOWN 


sSTAY RIGHT THERE (@,@) 


;TURN ON FLAGS WHICH WILL TELL US WHETHER WE 
;OHOULD USE THE (X,Y) VECTOR WE FIGURE OUT. 
;IN LOCATE MODE? 

3NO 

;SET CURRENT SOURCE OF VECTORS FOR LOCATE MODE 
310 KB. 

sSINCE WE'RE IN LOCATE MODE, THERE’S NO NEED TO 
;CHECK IF HOLDX OR HOLDY ARE ON. 

31S HOLDX ON? 

3NO, WE CAN'T USE X PORTION OF OUR VECTOR. 
;oET *OK TO UPDATE X*? FLAG ON. 

sSAME THING FOR Y 


sNOW TO CHECK IF WE'RE ALLOWED TO 
‘UPDATE EITHER X OR Y. 

:SO FAR, WE CAN'T DO Y. 

-OK TO DO X. 

‘BUZZ ‘EM. NO GO. 
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/usy/eric/cfm/PP1G6 PAINTER POWER 16 11/13/83 19:07:35 PPiG » ASM 
1208 CA KBOKi: DEX sEVEN OUT X CHECKING 
1289 £8 KBOK:  INX 
12@A FW “i2i2 BEG KBNOX sDON’T UPDATE X 
120C AE2BIF LDX SAVEX 
120F SE4S4iF STX USEX 
i2i2 C8 KBNOX: INY 
1213 F@@6 “121B BEG KBNOY sDON’T UPDATE Y 
1215 AC2SIF LDY SAVEY 
1218 @8C45iF STY USEY 
121B ADGBIF KBNOY: LDA LOCFL6 sARE WE IN LOCATE? 
iziE 1806 “1226 BPL KBLOCO sYES, DON’T UPDATE (X,Y) TO BE APPLIED TO 
1220 8E461F STX BUSEX sTARGET ONCE WE GET OUT OF LOCATE. 
tee3 aC47iF STY BUSEY sUPDATE THE REAL’ VECTOR TO BE APPLIED. 
1226 ADA4iF KBLOCO: LDA KBFRCH sSHOULD WE TURN FREEZE OFF? 
1229 FQ86 “i231 BEG KBLEXT ;NOPE 
122B &8D6liF STA HCOUNT sMAKE THINGS GO FASTER 
{ecE 269018 JSR FTRNOF ;TURN FREEZE OFF - KBFRCH FLAG WILL CAUSE IT TO 
1231 68 KBLEXT: RTS ;BE TURNED OFF AFTER ONE PASS THROUGH LOOP. 
§ 
3 
; KBSTUP - SET X & Y REGISTERS UP TO HANDLE KB VECTOR. 
ooo Sa aaa 
§ 
1232 48 KBSTUP: PHA 
1233 AcOd LDX #8 
1235 SEB4iF STX KBFRCH sCLEAR FREEZE TOGGLE INDICATOR. 
1238 2948 AND #64 315 CONTROL BIT ON? 
123A Dees “1244 BNE KBNTAD sYES, CONTROL KEY WAS NOT DEPRESSED. 
1e3C AE4S4iF LDX USEX sADD OUR VECTOR THE LAST USED VECTOR. 
i23F ACASIF LDY USEY 
i242 68 PLA 
1243 68 RTS 
1244 ADEGBIF KBNTAD: LDA LOCFLG ;DON’T SET HOLDX OR Y IF IN LOCATE. 
1247 1086 “124F BPL KBNHLD 
1249 2@6Ei2 JSR FIXX 
124C 208412 JSR FIXY 
124F A28d KBNHLD: LDX #2 
1251 ABB LDY #0 
i253 68 PLA 
1254 C948 CMP #7 H? sDID THEY HIT °H*? 
1256 FQ@A “i262 BEG KBSTEX ;IF SO, THEN WE DON’T WANT TO TURN FREEZE ON 
1258 AD67IF LDA FRZFLG ; TEMPORARILY. IF FREEZE ISN’T ON NOW, THEN WE 
125B 3085 “i262 BMI KBSTEX ;DON?T WANT TO DO SO EITHER. 
125D A9@1 LDA #1 sFREEZE WAS ON, SO SET FLAG WHICH WILL CAUSE 
125F S8D84iF STA KBF RCH ;LOOP TO BE EXECUTED ONCE, EACH TIME THEY 
i262 69 KBSTEX: RTS 76,Y¥,N OR J. A SNAIL MODE EMULATION. 
§ 
3 
: PDREST - RESTORE LOCATE MODE CONTROL TO PADDLES (FROM KB) 
— a ee a 
$ 
1263 AI8B PDREST: LDA Hit 
1265 &8D6CiF STA CURLOC 
1268 68 RTS ; THINGS HAVE BEEN HARDER 


ae 


1269 
1c6C 
126E 
i278 
1273 
1279 
1278 
127A 
127D 


127E 


127F 
1282 
1284 
1286 
1289 
128B 
128E 


1293 


1294 


AD741F 
1685 “1273 
AIA 
4C7al2 
ASDA 
8D741F 
AG14 
C@BR17 

69 


AD 


AD7SiF 
1085 “1289 
A918 
4C8Bi2 
ASDS 
8D751F 
AGI 
C@BA17 

68 


AD 


AD6BIF 
SOGF “12A9 


8D6CiF 


38 
ED441F 
8D441F 


AD741F 
188A “12B8 
ADSBIF 
3885 “12B8 
D@OD “1202 
4CD712 


ED461F 


NGXKB: 


SORCIM 650x Assembler ver 2.9 
/usr/eric/cfm/PP1G6 PAINTER POWER 16 11/13/83 19:07:35 


os 
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HOLDX ~ FREEZE CURRENT DELTA X INPUT 


; 
saaneees 
3 
HOLDX: LDA 
BPL 
FIXX: LDA 
: LDA 
XUPMDE: STA 
LDY 
JSR 
RTS 


ie we 


DB 


HOLDY: LDA 
BPL 
LDA 
JMP 
YTRNOF: LDA 
YUPMDE: STA 
LDY 
JSR 
RTS 


FIXY: 


DB 


fa" ee) ee 


BMI 
LDA 
STA 
LDA 
SEC 


STA 
RTS 


j 
NEGXNL: LDA 





XCRUISE 
XTRNOF 
#$1A 
XUPMDE 
#$DA 
XCRUISE 
#TXHLDX 
DPAGE? 


; TURN HOLD X ON - REVERSE °7! 


;TURN HOLD X OZF - NORMAL *F? 


$AD ;==FLAK 


HOLDY - FREEZE CURRENT DELTA Y INPUT 





YCRUISE 
YTRNOF 
#918 
YUPMDE 
#$D8 
YCRUISE 
#TXHLDY 
DPAGE? 


;TURN HOLD Y ON - REVERSE °X! 


;TURN HOLD Y OFF - NORMAL *X! 


$AD s==FLAK 


NEGX & NEGY - FLIP FLAGS FOR REVERSAL OF SOURCE VECTOR 


LOCFLE SIN LOCATE MODE? 
NEGXNL * NOPE 

#-1 sSWITCH LOCATE CONTROL TO KB 

CURLOC 

#0 sNOW REVERSE MOTION 

USEX 

USEX 

XCRUISE SIF WERE CRUISING, DON'T TOGGLE MODE 
NEXKB “YUP 

CURSRC sNO CRUISE, SOURCE BETTER BE KB OR PATTERN. 
NEXKB “KB 

NEXOK : PATTERN 

NEXPAD ‘DON’T DO THAT!! 

#0 

BUSEX sNEGATE KB VECTOR 
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/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:07:35 PPiG =—s(«w. ASM 
12BE B8D461F STA BUSEX 
12C1 68 RTS 
12C2 AD72i1F NGXOK: LDA XNEG 
1205 3005 “1eCC BMI NXFIX 
1207 ASAC XNEGOF: LDA #$AC sNORMAL °,’ 
1209 4CCEie JMP NXFIX+2 
1eCC =A92C NXFIX: LDA #$20 sINVERSE *,’ 
12CE 8D72iF STA XNEG 
12D1 AGI4 LDY #TXNEGX 
1203 2@BAI7 JSR DPAGE? 
12D6 68 RTS 
i2D7 | 2@D@b4 NGXPAD: JSR SOUND 
12DA 62 RTS 
3 
i2DB AD6BIF NEGY: LDA LOCFL6 sIN LOCATE MODE? 
12DE 300F “icEF BMI NEGYNL ;NOPE 
12E8 AFF LDA #-1 ;SWITCH LOCATE CONTROL TO KB 
12E2 aD6CiF STA CURLOC 
12E5 A982 LDA #8 sNOW REVERSE MOTION 
12E7 38 =. 
12E8 ED45iF SBC USEY 
12EB AD45iF STA USEY 
12EE 68 RTS 
3 
12EF AD75i1F NEGYNL: LDA YCRUISE sIF WERE CRUISING, DON’T TOGGLE MODE 
12F2 188A “12FE BPL NGYKB s YUP 
i2F4 ADSBIF LDA CURSRC sNO CRUISE, SOURCE BETTER BE KB OR PATTERN. 
12F7 3005 “12FE BMI NGYKB *KB 
12F9 DOOD “1388 BNE NGYOK +s PATTERN 
12FB 4CiDi3 JMB NGYPAD ;DON’T DO THAT!! 
12FE ASG8 NGYKB: LDA #0 
1308 38 SEC 
1301 ED47iF SBC BUSEY sNEGATE KB VECTOR 
1304 8D47iF STA BUSEY 
1387 68 RTS 
1388 AD73iF NGYOK: LDA YNEG 
130B 3885 “13ie2 BMI NYFIY 
138D ASAE YNEGOF: LDA #$AE sNORMAL *.? 
130F 4C€1413 JMP NYFIY+2 
idl2 ASE NYFIY: LDA #$2E ; INVERSE °.? 
1314 8D73iF STA YNEG 
1317 AGS LDY #TXNEGY 
1319 2QBA17 JSR DPAGE? 
131C 68 RTS 
131D 2@DG654 NGYPAD: JSR SOUND 
1328 62 RTS 
3 
+ TRGMDE - SET BRUSH/TARGET SIZING MODE 
fan nn 
3 
1321 ADS@IiF TRGMDE: LDA HITTYP 
1324 FQ@3 “1329 BEQ TRGMOK 
13e6 4CD064 JMP SOUND 
1329 ADSEIF TREMOK: LDA XCHARI 
13eC 8D66iF STA DSTFLG 


132F 
1332 
1335 
1337 
1339 
133B 
133E 
1341 
1344 
1346 
1348 
134A 
134D 
1358 
1353 
1356 


1357 
1359 
135C 


135D 


1362 
1365 


136B 
136D 


1371 
1374 
1377 
1479 
137B 
137D 
1388 
1383 


1384 
1386 
1389 


138A 
138C 
138F 


CREE IC 
AD661F 
C94E 

D@IE “1357 
ASFF 
&DeniF 
8D651F 
ADSS1F 
1887 “134D 
AGFF 

Bi68 
4C5813 
ADS71F 
8beBiF 
CBADIB 

68 


C987 
8D651F 
68 


ADAG iF 
F@83 “1365 
4CDG64 
ADSEIF 
BD641F 
C94E 

D@IB “138A 
ASFF 
BD631F 
ADSBIF 
FO@B “1384 
A@FF 

Bi6C 
BD2CEIF 
2@BA1B 

68 


A928 
8D2E1F 
68 


C987 
AD631F 
68 


SORCIM 65@x Assembler ver 3.2 
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TREME : 


C3 =—8@ we SS We wae 


SRCMOK : 


$ 
SRCONP : 


RCMDE: 


JSR 
LDA 
CMP 
BNE 
LDA 
STA 
STA 
LDA 
BPL 
LDY 
LDA 
JMP 
LDA 
STA 
JSR 
RTS 


: AND 


STA 
RTS 


LDA 
BEQ 
JMP 
LDA 
STA 
CMP 
BNE 
LDA 
STA 
LDA 
BEQ 
LDY 
LDA 
STA 
JSR 
RTS 


LDA 
STA 
RTS 


: AND 


STA 
RTS 


LSTERA 
DSTFLG 
#6 
TREMNN 
#255 
MAXPTS 
TAMFLG 
MEFLAG 
TREME 
#$FF 


CTBASEX], Y 
TROME+3 


TPTR 
NUMPTS 
TSZDSP 


#$87 
TAMFLE 


SRCMDE - UPDATE STROKE (SOURCE) SIZING MODE. 


ee RM EE ame EE REE RS A A a Ns ER ANT RSS Sens Be RY a 


HITTYP 
SRCMOK 
SOUND 
XCHARI 
DSSFLG 
#° N? 
SRCMNN 
#255 
SAMFLE 
CURSRC 
SRCONP 
$$FF 


[SBASEX], Y 


SNMPTS 
SSZD5P 


#32 
SNMPTS 


#507 
SAMFLG 
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;CHANGING TO NORMAL MODE? 
sNOPE 
;IN NORMAL MODE, MAX # PTS IS 255 


*—-1 MEANS NORMAL 
‘NOW: WHAT DO WE DO IF WE'RE ENTERING? 


sNOT ENTERING; # PTS TO DISPLAY 
31S THE INHERENT SIZE OF THE OBJECT. 


sENTERING; # PTS TO DISPLAY IS THE NUMBER 


‘THAT HAVE BEEN ENTERED. 
sTELL THE WORLD ABOUT IT. 


sWE'LL GET THE SIZE FROM THE PADDLES, AND THAT 
sHAPPENS ELSEWHERE. 50 JUST FIX UP THE FLAG AND 
;SCRAMBLE YOUR E665. 


sNORMAL MODE? 

sNOPE 

sNORMAL MODE 

:15 CURRENT STROKE A PATTERN? 


;YES, GET THE PATTERN’S INHERENT SIZE. 


;DISPLAY OF WHICH IS DETERMINED BY THE SIZING 


‘MODE. IN NORMAL MODE, MAX # PTS TO ENTER/ 
“DISPLAY IS 32. 


sUSE ONE OF THE PADDLES TO DETERMINE THE SIZE 
‘OF THE STROKE. SINCE THE PADDLES ARE READ 
sELSEWHERE, DON'T WORRY ABOUT SETTING THE 
»SIZE HERE. 


SRCALL - SET SOURCE OR STROKE (CALLED FROM OUTSIDE) 
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/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:07:35 PPig «=. ASM 
$ 
1398 ADAgIF SRCALL: LDA ——-HITTYP 
1393 Fees “1398 BEQ  —- SRCADK 
1395 4CDO64 JP = SOUND 
1398 ADZE1F SRCAOK: LDA —-XCHARI 
1398 AaDSCIF STA CSOURC 
1396 C959 CMp gp :1S SOURCE PADDLES? 
13A@ F@23 “1305 BEQ = SRCAP YUP 
132 290F AND «#0 
1304 aDSBIF STA —CURSRC sSAVE PATTERN # WE'RE USING AS STROKE. 
1307 206213 JSR SRSETB ‘SET UP HOOK INTO OUR PATTERN’S VECTORS. 
130A 206E1C JSR LSTERA ‘IN CASE WERE IN VISUALIZE MODE 
130D AQFF LDY -#SFF *GET INHERENT SIZE OF PATTERN 
13AF BI6C LDA —-SBASEX1,Y 
13B1 aDasiF STA —CONMPTS 
13B4 A900 LDA tis 
13B6 AD87IF STA OPT 
13B9 AEG3IF LDX  SAMFLE *CHECK SIZING MODE TO MAKE SURE WE SET UP 
13BC 1006 “1304 BPL  SRCAN@ ‘PROPERLY. BRANCH IF NOT IN NORMAL MODE. 
13BE AD2E1F STA SNMPTS 
1301 208ALB JSR  SSZDSP 
1304 60 SRCAN@: RTS :IF SIZING MODE WAS EITHER LOCK OR PADDLES, 
; sTHEN # PTS IS ALREADY SET OR WILL BE SET. 
13¢5 Agee SRCAP: LDA = #0 :@ IS FOR PADDLES 
1307 SDSBIF STA CURSRC *STORE INTERNAL SOURCE DESIGNATION 
13CA 20C712 JSR  XNEGOF 
130D 200013 JSR YNEGOF sSETTING OF NEGX & NEGY IS ONLY SIGNIFICANT 
‘WHEN SOURCE IS A PATTERN. 
13D0 AQF LDY #$FF 
13D2 AD63IF LDA —SAMFLG SIF WE'RE IN LOCK MODE, WE ARE DEALING WITH 
1305 1000 “1361 BPL — SRCALK *A FIXED # OF PTS, DETERMINED BY A PADDLE. 
1307 Aga LDA «#32 sNOT LOCKED, SET CURRENT LENGTH = 32. 
13D9 9174 STA CBBASEX],Y IF PDLS ARE CONTROLLING SIZE, THIS WILL BE 
13DB SD2E1F STA SNMPTS ‘CHANGED UPON REENTRY INTO MAIN LOOP. 
13DE 208018 JSR SSZDSP 
1361 60 SRCALK: RTS 
3 
: SRSETB - FOR CURRENT SOURCE, SET UP PATTERN BASE ADDR IN SBASEX. 
. Sc Nee ats es 
3 
13E2 48 GRSETB: PHA 
1363 18 CLC 
1364 2A ROL OA sDOUBLE IT 
i365 AB TAY sFORM DISPLACEMENT TO PATTERN TABLE 
13E6 BOASIF LDA —s APATTS-2, 
13E9 asec STA SBASEX 
13EB 8SGE STA SBASEY 
13ED B9AGIF LDA Ss APATTS-1, Y 
13FQ aseD STA - SBASEX+1 
13F2 18 CLC 
13F3 6901 ADC CI 
13F5 ASGF STA SBASEY+1 
13F7 68 PLA 
12F8 62 RTS 





13F9 


13FA 
13FD 
1SFF 
1482 


1488 
148A 
140B 


149F 
1412 
1414 
1417 
i4iA 
141D 
14iF 
1421 
1423 


1429 


142A 
142D 
142E 
142F 
14.38 
1433 
1435 
1437 
143A 
1430 
143D 
143F 
1441 


1442 


1443 
1445 
1448 
144B 
144E 


AD 


ADBGIF 
FQ@3 “1482 
4CD064 
ADSEIF 
8DSAIF 
C9GF 

48 

C@6E1C 

68 

eBeR14 
ASB 
8D571F 
BD911F 
ADES1F 
188A “1429 
AGFF 

Bi68 
BD2BIF 
e@ADIB 

68 


8DS91F 
18 


8D@S1F 
8D@61F 
BD871F 
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& 
3 


me ee ee” | 


NOPERA: 


TAUPTS: 


; 
TRSETB: 


s 
b 
s 
3 
3 


RGALL: 


3 
= 
5 


DB 


ESCSEESEREE 


on On 
oooh 
> D 


ZSE228 


RTS 


STA 
CLE 


TAY 


STA 
STA 


STA 
CLE 


STA 
RTS 


DB 


STA 
STA 
RTS 


$AD ;==FLAK 


HITTYP 
TRGADK 
SOUND 
XCHARI 
CTARG 
#$0F 


LSTERA 


TRSETB 

#0 

TPTR 
TBSPTR 
TAMFLG 
TAUPTS 
#$FF 
CTBASEX], Y 
NUMPTS 
TSZDSP 


CURTRG 
eB 


APATTS-2, Y 
TBASEX 
TBASEY 
APATTS-1, Y 
TBASEX+1 


#1 
TBASEY+1 


$AD ;==FLAK 


#8 

TCTRI 
TCTR2 
TETRS 
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TRBALL: SELECT PATTERNS 1-8 AS TARGET (CALLED FROM OUTSIDE) 


SLL LY TL LD EG SS ED LS SD GL LE LE LT LE LE LEE LL TE EG LES LEY LT LL TY EEE CLT CN IE TE CES TY EP CD SEED ASN NS NN I ED GN GE SN ARRON Sum-GHeD 


;9ET UP PONITERS TO PATTERN 

;INITIALIZE POINTERS 

;NOW THAT WE'RE SELECTING A NEW PATTERN 
;OKIP IF NOT IN NORMAL MODE 


;GET # PTS IN TARGET PATTERN 


sSAVE PATTERN # 


sDOUBLE IT 
sFORM DISPLACEMENT TO PATTERN TABLE 


- CLEAR TICK COUNTERS 


LNGEXT - PREPARE FOR A LONG STAY AWAY AND POSSIBLE EVENTUAL REENTRY. 











144F 
1452 
1454 
1457 
1458 
1450 
1468 
1463 
1466 
1469 
1468 
1465 


146F 
1472 
1475 
1477 
1478 


147B 
147E 


1483 
1485 
1487 
148A 
148D 
148F 
1491 
1494 


14AD 
1488 
14Be 


ADBBIF 


FQ83 “1457 


4CDG64 
CB6E1C 
eOBi1G 
289118 
288818 
2@D718 
2B4A11 
ASG1 
8D831F 
68 


CO4F 14 
e@DAGC 
AIG1 

8DEAIF 


AD6S1F 


3815 “1495 


AD6DIF 


1018 “1495 


A988 
BDBE1F 
BDBF iF 
A219 
ABBA 
2GE564 
68 


2@DO64 
68 


ADSDIF 
8DSCiF 
ADSE IF 
8DaDIF 
R228 
AGI 
CBESE4 
68 


AD691F 


S@E3 “1495 


ADBE IF 
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LNGEXT: 


LNGOK : 


ci « me ee wee 


LDA 
BEQ 
JMP 
JSR 
JSR 
JSR 
JSR 
JSR 
JSR 
LDA 
STA 
RTS 


HITTYP 
LNGOK 
SOUND 
LSTERA 
PNPNON 
FRZON 
DTRNOF 
VEROFF 
LOCOFF 
#1 
CTXFLG 





22/72/22 22:72 Page 23 
PPIG =. ASM 


;TURN PAINT ON (GET PICTURE INTO HGR 1) 
;TURN FREEZE ON 

sTURN BRUSH OFF 

;TURN VISUALIZE OFF 

;TURN LOCATE OFF 

sASSUME THAT OUR DEAR CONTROL DISPLAY 
sWILL BE MUTILATED BY THE STAY AWAY. 


- ON CTRLC ABORT SO THAT UPON REENTRY WE RE-INITIALIZE. 


JSR 
JSR 
LDA 
STA 
RTS 


LNGEXT 
COMAND 
#1 

INIFLG 


;THIS WILL MAKE US LEAVE WHEN 
;WE GO INTO MAIN LOOP NEXT TIME. 
sNOW WE ARENT INITIALIZED. 


: 
; ESORGE & PSORGE - SET/RESET ORIGINS FOR ENTER & MOVE MODES 


5 
3 
ESORGE: LDA MEFLAG ;HAVE TO BE IN ENTER MODE 
BMI SETBUZ 
LDA VISFL6 ;CAN'T BE IN VISUALIZE. 
BPL SETBUZ 
LDA #8 
STA ERX ;5ET ORIGIN VECTOR TO @ 
STA EORGY sWE*LL ADD TO IT AS WE ENTER OUR VECTORS. 
LDX #918 
LDY #$0A sNOW MAKE SOME NOISE TO LET THEM KNOW 
JSR SOUNDZ ;WE HEARD *EM. 
RTS 
3 
SETBUZ: JSR SOUND 
RTS 
$ 
PSORGE: LDA CSTRTX sREMEMBER CURRENT SCREEN LOCATION SO WE CAN 
STA PORGX ;GET BACK THERE LATER. 
LDA CSTRTY 
STA PORGY 
LDX #$20 ;S0ME NOICE FOR US, TOO 
LDY #$18 
JSR SOUNDZ 
RTS 


(Tl «= ae ee 


GORGE: LDA 


BMI 
LDA 


MEFLAG 
SETBUZ 
EORGX 


EGORGE & PGORGE - RESORT TO ENTER / MOVE ORIGINS. 


;ONCE AGAIN, HAVE TO BE IN ENTER. 


;6ET THE VECTOR WE'VE BEEN ACCUMULATING 
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/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:87:45 PPiG6 Ss. ASM 
14B5 &8DBAIF STA ORIEX ;AND GO SOCK IT BACK TO ‘EM. 
1488 ADAFIF LDA EQRGY 
14BB 8DABIF STA ORIGY 
14BE A981 LDA #1 
14€0 &D89iF STA ORGFLG ;THIS FLAG IS OUR TICKET TO THE HEART OF THE 
1403 68 RTS sENTER PART OF THE MAIN LOOP, 
3 
14€4 2@6EIC PBORGE: JSR LSTERA 
14C7 2@F61D JSR HGHCLR ;PUT BRUSH BACK ON SCREEN 
14CA ADSCIF LDA PORGX 
14CD 8DSDIF STA CSTRTX 
14D@ 8D99IF STA SCSTRX 
14D3 ADBDIF LDA PORGY 
1406 S8DSE1F STA CSTRTY 
14D9 8D9BIF STA SCSTRY 
1400 68 RTS 
3 
: QWIKIE - START EXECUTION OF QUICK STROKE 
panna nnn nnn 
3 
14DD ADEDIF QWIKIE: LDA VISFLG sLET’S REMEMBER WHAT WE WERE DOING 
14E@ 8D96iF STA VISHLD 
14E3 20D718 JSR VEROFF ;VISUALIZE OFF, PLEASE 
14E6 ADEBIF LDA LOCFL6 
14E9 AD9SiF STA LOCHLD 
14EC =2@4Al1 JSR LOCOFF 
14EF AD6eiF LDA CSPEED ;SAVE CURRENT SPEED CAUSE WE'RE GONNA 
14Fe 9 BD9BIF STA SPDHLD sBLITZ THIS BABY OUT. 
14F5 «2GEDOF JSR BLITZ 
14F8 AD681F LDA DRWFLG ;DRAW REGARDLESS OF WHETHER BRUSH IS DOWN/UP. 
14FB 8DAGIF STA DRWHLD 
14FE 207B18 JSR DTRNON 
1581 AIBI LDA #1 
1583 8D8S1F STA GSTXEG ;5ET THE EXECUTING QUICKSTROKE’ FLAG, WHICH 
1506 ADS21F LDA BSPTR ;BYPASSES EVERYTHING !! 
1589 8DSBiF STA SPTR ;5ET STROKE BUFFER POINTER BACK TO BEGINNING 
i5@C 68 RTS ;OF STROKE. QUICKSTROKE WILL TERMINATE WHEN 
sSAVVEC ROUTINE DETECTS THAT SPTR = SNMPTS. 
;THEN FLAG WILL BE TURNED OFF, VERIFY TURNED 
;BACK ON, ETC. 
b 
; QWIKI2 - EXECUTE QUICKSTROKE AND RETURN TO STARTING POINT. 
fa 
3 
15@D 2@DD14 GWIKI2: JSR GWIKIE 3D0 THE USUAL 
1518 AIFF LDA #~1 ;SET EXECUTING QUICKSTROKE TYPE 2 
iSi2 &D@5iF STA QSTXEQ 
1515 269914 JSR PSORGE sREMEMBER CURRENT LOCATION ON SCREEN 
i518 68 RTS 


ee ee ee ) ee | 


ARROWS —- LARROW MOVES POINTER TOWARD BEGINNING OF PATTERN, RIGHT ARROW 
TOWARD END OF PATTERN. ARROWS APPLY IN VISUALIZE, ENTER AND 
PAINT MODES. 


1319 
15iC 
ISIE 
1521 
1o23 
1524 
1327 
1528 
152A 
152B 
15eD 
1538 
1532 
1333 
1535 
1338 
133B 
153E 


153F 
id4e 
1544 
1347 
1349 
154A 
i54D 
134E 


1587 





ADSDIF 
3821 “153F 
ACS2IF 
FQ64 “1587 
88 

BC921F 

C8 

A988 

38 

F174 
BD3BiF 
A968 

38 

Fi76 
BD3CiF 
CBBA1E 
e@6E 1C 

£9 


AD6S1F 
1@21 *1565 
ACSIIF 
F@3E “1587 
88 

8C911F 

C8 

AIR 

38 

Fi68 
8D3BiF 
AIS 

38 

F16A 
BD3C1F 
P@BA16 
C@6E1C 

68 


ACS71F 
C8 
CCeAIF 
BQ19 “1587 
BC371F 
88 
ADBEIF 
38 
F168 
8DBE LF 
ADBF IF 
38 
Fi6A 
BDBF IF 
4CE915 


4CD064 


SORCIM 65@x Assembler ver 3.8 
/usr/eric/cfm/PP16 PAINTER POWER 16 11/13/83 19:07:35 


; 
RARNVI: 


RAREN 


3 
ARBUZZ: 


RARROW: LDA 


BMI 
LDY 
BEQ 
DEY 
STY 
INY 
LDA 
SEC 
SBC 
STA 
LDA 
SEC 
SBC 
STA 
JSR 
JSR 
RTS 


LDA 
BPL 
LDY 
BEG 
DEY 
STY 
INY 
LDA 
SEC 
SBC 
STA 
LDA 
SEC 
SBC 
STA 
JSR 
JSR 
RTS 


LDY 


INY 
CPY 


JMP 


VISFLG 
RARNVI 
BSPTR 

ARBUZZ 


BSPTR 
#2 


CBBASEX], Y 
TEMPX 


CBBASEY], Y 
TEMPY 


LSTERA 


RAREN 
TBSPTR 
ARBUZZ 


TBSPTR 
#8 


CTBASEX], Y 
TEMPX 
#8 


[TBASEY], Y 
TEMPY 
MOVSTT 
LSTERA 


TPTR 


MAXPTS 
ARBUZZ 
TPTR 


EQRGX 


[TBASEX, Y 
EORGX 
EORGY 


[TBASEY], Y 
EORGY 
ARCHEK 


SOUND 


22/72/27 22:92 Page 25 
PPi16 ss. RSM 


sIN VISUALIZE? 
NOPE 


sPTR IS AT BEGINNING OF STROKE - BUZZ EM 


;GET VECTOR WE'RE ADDING TO LIST 


sMOVE STARTING LOCATION BY VECTOR 


;GET VECTOR WE'RE RE-ADDING TO LIST. 


sAND ADJUST PATTERN STARTING PT. 


sNOW ADD VECTOR WE'RE SKIPPING INTO THE 
sTILL OF THE ORIGINATE VECTOR. 


sLET’S SEE ABOUT UPDATING # OF PTS 


SORCIM 658x Assembler ver 3.0 
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/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:07:35 PPIG =. ASM 


158A ADEDIF LARROW: LDA ——-*VISFLG s VISUALIZING? 
158) 301D “15AC BMI LARNVI * NOPE 
iS8F ACIIF LDY —-BSPTR 
i592 CA INY sWE HAVE TO MAKE SURE THAT POINTER WILL 
1593 CCPEIF CPY SNMPTS sSTILL BE IN RANGE AFTER WE HAVE INCREMENTED IT 
1596 BOEF “1587 BCS  ARBUZZ 
1598 acgeiF STY  BSPTR 
1598 B174 LDA ss (BBASEX],Y © ;GET VECTOR WE'RE REMOVING AND ADJUST 
159) aD3BiF STA TEMPX 
15A@ B176 LDA —sEBBASEY), Y 
i5A2 SD3CiF STA TEMPY 
1505 20AA1G JSR  MOVSTT sSTARTING PT BY THAT MUCH. 
15A8 206E1C JSR LSTERA 
i5AB 69 RTS 
5 
15AC ADSE9IF LARNVI: LDA —MEFLAG s ENTERNG? 
150F 101D “15CE BPL LAREN :YUP 
i5B1 ACSLIF LDY  TBSPTR 
15B4 CB INY 
i585 CC2BIF CPY NUMPTS 
i5B8 BeCD “1587 BCS  ARBUZZ 
15BA AC91iF STY  TBSPTR 
iSBD Bi68 LDA —sCTBASEX],Y 
{SBF AaD3BiF STA TEMP 
i5C2 BiGA LDA —SsCTBASEY],Y 
{5C4 8D3CiF STA TEMPY 
15C7 2asAi6 JSR MOVSTT 
{5CA 206EI1C JSR —_LSTERA 
15CD 60 RTS 
iSCE ACS7IF LDY ‘TPTR 
15D1 FOB4 “1587 BEQ ARBUZZ sBUZZ °EM 
i5D3 88 DEY 
15D4 ADBE1F LDA —sEDRESX STAKE THIS VECTOR OUT OF THE ORIGINATE 
i507 18 cLe : VECTOR. 
i5D8 7168 ADC —sLTBASEX1,Y 
{SDA ADSEIF STA —_—EDRGX 
15D) ADAFIF LDA ss EDRGY 
15EQ 18 CLC 
{5E1 716A ADC —sTBASEY1,Y 
i5E3 SDAFIF STA EORGY 
i5E6 aCS7iF STY PTR 
15E9 ADGSIF LDA = TAMFLG sLET'S SEE ABOUT UPDATING THE # OF PTS. 
15SEC 3003 “15F1 BMI RARNLK 
{SEE AC2AIF LDY —- MAXPTS sIT*S LOCKED - USE MAX # PTS, 
i5F1 BC2BIF STY  NUMPTS 
15F4 98 TYA 
i5F5 AQFF LDY -#$FF 
iSF7 9168 STA CTBASEX],Y © :STORE IT IN PATTERN, TOO. 
15F9 2OADIB JSR TSZDSP 
15FC 2QGE1C JSR —_LSTERA 
iSFF 60 RTS 


A a a a a 
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B91D 
C31 
CDiD 
DEID 
EF iD 


2987 
8D7E1F 


8D931F 
AGA 

C@BAL7 
ADS41F 


3018 “1636 


ADTEIF 
8D941F 
ADS41F 
18 


BSFE15 
8DB71D 
BSFF15 
8DBB1D 


ADBG1F 


FQQ3 “163F 


4CD064 
ADSELF 
8525 
AIS 
8524 
e@22FC 
A528 
8568 
A529 
8561 
ADSF IF 
8525 
eseert 
AGZz8 
Bi6@ 
9128 
88 


18F9 “165D 


68 


2 
3 
2 
3 


PNTADS: 


j 
PNMHIT: 


PNMEXT : 
} 
j 
b J 


i 
MOVROW: 


MOVOK : 





De 
DW 
Dw 
DW 
DW 


STA 
RTS 


PRINT 
PAINTe 
PRINTS 
PAINT4 
PAINTS 


#7 
TEMP 


PNTADS—-2, Y 


PNT JMP 


PNTADS-1 5 Y 
PNT JMB+1 


; PNMHIT - HANDLE CHANGES IN PAINTING MODE 


sNORMAL PAINTING 

sNO CHANGE PAINTING 
;BLACK=)COLORS, COLORS=) WHITE 
sWHITE=) COLORS, COLORS=) BLACK 
COMPLEMENT 


sMAKE IT ASCII 


¢IF WERE NOT IN PICTURE MODE, THEN DON'T 
s INSTITUTE THE CHANGE. 
sDOUBLE IT 


*GET LOW ORDER BYTE 
‘SET UP ADDRESS FOR HPLOT TO USE. 


MOVROW - ROUTINE TO MOVE ONE SCREEN ROW TO ANOTHER 


CALLED BY APPLESOFT MENU PROGRAMS. 


LDA 
BEG 
JMP 
LDA 
STA 
LDA 
STA 
JSR 


HITTYP 
MOVOK 
SOUND 
XCHARI 
CURSRY 
$2 
CURSRX 
CURSET 
BASL 
FROM 
BASH 
FROM+1 
XCHAR2 
CURSRY 
CURSET 
#42 


[FROM], Y 
[BASLI, Y 


MOVLOP 


:GET FROM ROW 


;D0 BASE COMPUTATION 
;NOW STEAL THE ADDRESS. 


sGET THE TO ROW. 


;COMPUTE THAT ADDRESS 
sMOVE 4@ CHARACTERS (ONE ROW) 
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/usr/eric/cfm/PP1G6 PAINTER POWER 1G 11/13/83 19:87:35 PPiG- =. ASM 
en ee ae en 
3 
1665 ADAGIF SETQWK: LDA HITTYP 
1668 FQ@3 “166D BEG SETGOK 
166A 4CD064 JP SOUND 
166D e@bE1C SETGOK: JSR LSTERA 
1678 ABB LDY #2 
1672 Biée SETGLi: LDA CSBASEX], Y 
1674 9174 STA CBBASEX], Y 
1676 CB INY 
1677 DQF9 *i672 BNE SETGL1 
1679 Bi6e SETGL2: LDA CSBASEY], Y 
167B 9176 STA CBBASEY], Y 
167D C8 INY 
167E DO@F9 “1679 BNE SETQL2 
1688 8C92iF STY BSPTR ;ZILCH QUICKSTROKE BASE POINTER 
1683 88 DEY 
1684 Bi6c LDA CSBASEX], Y ;6ET PATTERN LENGTH 
1686 8D2EiF STA SNMPTS 
1689 68 RTS 
i 
: = ssssssssss= 
; END OF KB HIT ROUTINES 
: SSS TS SSS Sa a 
3 
; MOVSTT - ROUTINE TO MOVE STARTING POINT BY VECTOR (TEMPX, TEMPY) 
fn reece emer ananen n etene 
4 
168A 18 MOVSTT: CLC 
1688 A888 LDY #58 sASSUME POSITIVE VECTOR 
168) ADSCIF LDA TEMPY 
1698 1882 “1694 BPL ADVNMI sYUP, IT’S POSITIVE 
1692 A883 LDY #$3 ;9ET HIGH ORDER BITS FOR A NEG NUMBER. 
1694 6D9BIF ADVNMi: ADC SCSTRY 
1697 8D9BIF STA SCSOTRY ;LOW ORDER 
169A 297F AND #$7F sKEEP { 128 FOR 8 BIT REGISTER. 
1690 @DSE1F STA CSTRTY 
169F 98 TYA 3GET HIGH ORDER STUFF 
16A@ 6D9CIF ADC SCSTRY+1 ;ADD TO PREVIOUS HIGH ORDER 
16A3 2983 AND #3 sKEEP IT TO 10 BITS (+/- 5i2) 
16A5 @D9CiF STA SCSTRY+1 
16A8 EE7FIF INC CHGFLE ;WE CHANGED LOCATIONS THEORETICALLY 
i6AB 18 CLE 
16AC  AGBB LDY #42 
16AE ADSBIF LDA TEMPX ;NOW SAME FOR X 
16B1 1802 “1685 BPL ADVNM2 
1683 A832 LDY #3 
16B5 6D991F ADVNM2: ADC SCSTRX 
16B8 8D99iF STA SCSTRX 
16BB 8DSDIF STA CSTRTX 
16BE 98 TYA 
16BF 6D9AIF ADC SCSTRX+1 
16C2 2903 AND #3 
i6C4 BD9AIF STA SCSTRX+1 
1607 ADIBIF LDA WRPIND ;1F WRAPAROUND IS ON, THEN CLEAR HIGH ORDER 
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/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:07:35 PPiG =. AS 
16CA 3083 “16CF BMI ADVNOC sBITS SO WE REMAIN ON SCREEN. 
16CC 20F61D JSR HGHCLR 

16CF 2BiciB ADVNOC: JSR BASDSP sDISPLAY SCREEN LOCATION. 
iéDe 68 RTS 


16D3 
16D6 
16D8 
16DA 
16DD 
16E8 


16E1 
16E4 
16E7 
16EA 


16F8 
16Fe 
16F5 
16F6 
16FA 
16FD 
1788 
1782 
1785 
1788 
178A 
17@D 


1785 
1711 
1713 
1716 
1719 
171B 
171E 
1721 
1723 
1726 
1729 
172B 
172D 
1738 
1733 
1735 
1738 
173B 
1730 
1748 


ADBe21F 


3083 “16DD 
DGGE “16E0 


CORE 17 
C@E116 
68 


COFBIA 
e@321B 
2@AG1B 
e@831B 
AD6D1IF 
ABA 
e@AC17 
AD6BIF 
AGS4 
C@AC17 
AD671F 
ASSE 
2@ACI7 
ADBE1F 
ABA 
2@AC17 
£8 


AD7O1F 
ABBA 
C@BA17 
AD74iF 
AG14 
C@BAI7 
ADTS1F 
ABI 
C@BAI7 
AD7AIF 
BIB 
AGIE 
CORAL? 
AD6B1F 
AG27 
2OBA17 
AD7i1F 
ABBA 
2@BA17 
AD721F 


28 wm wee 


DOFLGS - FROM SAVED FLAGS, REWRITE FLAG CHARACTERS IN CONTROL SCREEN 


DOFLGS: LDA —«-TXTFLG *CHECK WHERE WE? RE ALLOWED TO WRITE. 
BMI DOFTR2 ‘TOP 2 LINES ONLY 
BNE DOFNNN *CAN'T DO ANY ! 
JSR -DOFLG2 :DO BOTTOM 2 LINES 
DOFTP2: JSR —-DOFLG! -DO TOP 2 LINES 
DOFNNN: RTS 
§ 
DOFLG1: JSR —_‘ USEDF 
JSR —_-BASDF 
JSR —«TSZDF 
JSR SSZDF 
LDA ~—Ss«VISFLG 
LDY —-#TXVER 
JSR PAGEL 
LDA —_LOCFLG 
LDY  — #TXLOC 
JSR PAGEL 
LDA ~—Ss«FRZFLG 
LDY —- #TXFREZ 
JSR PAGE! 
LDA —PNTFLG 
LDY —-#TXPNT 
JSR PAGEL 
RTS 
3 
DOFLG2: LDA -QSTFLG 
LDY —- #TXQST 
JSR -DPAGE2 
LDA = XCRUISE 
LDY ST XHLDX 
JSR DPAGE? 
LDA —-YCRUISE 
LDY —- #TXHLDY 
JSR -DPAGE2 
LDA —- BOLOR 
ORA = #SBO 
LDY -#TXCOLR 
JSR DPAGE2 
LDA = s«DRWFLG 
LDY = #TXDRWF 
JSR _ DPAGE2 
LDA ss WRPFLG 
LDY —-#TXWRP 
JSR -DPABE? 
LDA = sXNES 
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/usr/eric/cfm/PP1G6 PAINTER POWER 16 11/13/83 19:87:35 PPIG =. ASM 
1743 AG94 LDY #TXNEGX 
1745 2@BAI7 JSR DPAGEC 
1748 = AD731F LDA YNEG 
174B ARSE LDY #TXNEGY 
174D = 20BAi7 JSR DPABEC 
1738 AD6SIF LDA MEFLAG 
1753 ARSE LDY #TXMODE 
1735 «e@BAI7 JSR DPAGE? 
1758 ADSSIF LDA PNEFLG 
175B AGA? LDY #TXPNM 
175D 2@BAi7 JSR DPAGE2 
1768 68 RTS 
5 
? 
1761 AD DB $AD ;==FLAK 


1762 
1763 
1766 
1769 
176C 
176F 
1772 
1775 
1778 
177A 
177D 


177E 
1781 
1782 


1785 
1788 
178A 
178C 
178F 
1791 
1792 
1794 
1796 
1799 
179C 
179E 
17Al 
17A4 
1707 


ADIGCe 
280417 
CBB41A 
e@7E1?7 
e@D316 
ADGO1F 
BD@11F 
AGL 

8D611F 


ADSE1F 
48 
CBC417 


ACB7 iF 
B474 
8476 
ACBAIF 
8475 
C8 
8477 
ASRS 
8DAG1F 
ADSBIF 


FOQ3 “17Al 


e@EC13 
ADSI1F 
eBeAi4 
66 


28 He woe 


RSETUP: CLD 
LDA 
JSR 
JSR 
JSR 
JSR 
LDA 
STA 
LDA 
STA 
RTS 


“ae wee 


me 82 we 


RSETi: LDA 


LDY 
STY 
STY 
LDY 
STY 


STY 


STA 


BEQ 
JSR 
LDA 
JSR 
PLA 


$CB18 
GPAGEL 
WRTEXT 
RSET 1 
DOFLES 
REMOTE 
REMTMP 
#1 
HCOUNT 


RSETUP - GET THINGS ROLLING AGAIN UPON REENTRY. 


:CLEAR KB FLAG 
‘SET UP PTRS TO CTL DISPLAY 
*RESTORE CTL DISPLAY 
‘SET UP ZERO PAGE POINTERS 
sSET UP FLAGS IN CTL DISPLAY 
*STORE WHAT REMOTE FLAG WAS UPON ENTRY 
¢IN REMTMP, SO WE CAN PLAY WITH REMTMP. 


RSETi - ROUTINE TO SET UP @ PAGE POINTER 
RSET 1 IS CALLED WHEN STARTING, REENTERING OR EXECUTING AN EXTERNAL CALL. 


XCHARI 


GPAGE1 


APATTS+16 


BBASEX 
BBASEY 


APATTS+17 
BBASEX+1 


BBASEY+1 


#8 
HITTYP 
CURSRC 
#045 
SRSETB 
CURTRE 
TRSETB 


“SAVE WHATS IN XCHARI 
*MAKE SURE POINTER TO CONTROL DISPLAY IS 
‘INTACT FOR BENEFIT OF EXTERNAL CALLS VIA EXTCA 
“SET UP STROKE BUFFER 

‘LOW ORDER BYTE 

‘HIGH ORDER BYTE 

°SET HIT TYPE = EXTERNAL 

*SO WE CAN PLAY AROUND. 


;IF CURRENT STROKE IS A PATTERN 
;THEN SET UP POINTERS TO PATTERN BUFFER. 


;5ET UP POINTERS TO TARGET PATTERN BUFFER. 
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/usr/eric/cfm/PPiG PAINTER POWER 16 11/13/83 19:07:35 PPiG =. ASM 
17AB = 8DSEIF STA XCHARI sRESTORE XCHARI 
17AB 68 RTS 


17AC 
17AD 
17B8 
17Be 
17B4 


17B7 
17B8 
17B9 


17BA 
17BB 
17BE 
1708 
1701 
1703 


1704 
17C6 
1708 
170A 
17CC 
17CE 


17D2 


17D3 


17D4 
17D5 
17D6 


17DB 
17DD 
17E@ 
17E1 
i7E2 
17E3 


AIB7 
8567 


8566 


CBiEFB 


dese “17DD 


9D4B1F 


SSSS 


DPAGE1 & 2 TAKE CARE OF WRITING INTO THE TEXT AREA. 





THE CHARACTER TO BE DISPLAYED SHOULD BE IN A, THE OFFSET INTO 
THE TEXT AREA SHOULD BE IN Y. 


tc we an =e we we 


PAGEL: PHA 
LDA TXTFLG sSHOULD WE BE WRITING IN TEXT AREA? 
CMP #1 :OK TO WRITE IN TOP 2 LINES? 
BEG DIWRNG ;NOPE 
PLA 
STA [CPAGE1], Y 
RTS 
DIWRNO: PLA 
RTS 
§ 
DPAGE2: PHA 
LDA TXTFLG 
BNE DIWRNO 
PLA 
STA (CPAGEC], Y 
RTS 
; 
§ 
: GPAGE1 REESTABLISH CONTROL PORTION OF SCREEN. Sy 50 
; eae ene ee ey Ae ee ee te ere \O ~ 
§ 
GPAGE1: LDA #306 *SET PTRS TO PAGE 1 TEXT 
STA CPAGE1+1 i : 
GMPi2: STA CPAGEC+1 
LDA #$58 sLOW BYTE IS 5@ FOR BOTH SETS OF LINES 
STA CPAGE 1 
STA CPAGE? 
RTS 


DB $AD ;==FLAK 


GETPAD - READ PADDLES, AND RETURN 3 SETS OF SCALED VALUES. 


Se wae 8 woe 


§ 
GETPAD: TAX ‘GET PADDLE TO READ THIS TIME 
JSR - PREAD :VALUE COMES BACK IN Y REGISTER. 
TYA 
BNE  GETPNZ ‘IF IT?S @, MAKE IT 1. 
ora #1 
GETPNZ: STA —- PADFUL, X *STOW 1-255 VALUE. 
ROR A ‘DIVIDE BY 32 
ROR A 
ROR A 
ROR A 





17E4 
17E5 
17E7 
17E8 
17EA 
i7ED 
17EE 
17F@ 
i7F 1 
17F3 
17F5 
17F6 
17F9 
17FA 
17FB 
17FD 
1808 
1802 
1805 


1838 


1841 
1849 
184C 


1851 
1854 


6A 
2987 
18 
6901 
SD4CiF 
98 
AVS 
38 
E928 
9004 “17F9 
C8 
4CFO17 
98 

38 
E983 
9DS81F 
A922 
CBABFL 
68 


AEBSF 
S814 “18iF 
BD471F 
CDSLIF 
B@3 “1816 
ADS11F 
BD2RIF 
8D2BiF 
C@ADIB 

AEG SIF 
3811 “1835 
BD471F 
CD921F 
B@@3 “182F 
ADS2iF 
ADZE1F 
eBBA1B 
RETELF 
F@GA “1844 
BD4BiF 

Ge 

BD17iF 
CBB2OF 
ADSS iF 
F@3C “1885 
ACSB LF 
CCE 1F 
9877 “18C8 
ADBSIF 
1083 “1859 


SORCIM 65@x Assembler ver 3.9 
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SB3e: 


HITMIN: 


Ta we we OO ee le 


APLOK1: 


APLNPD: 


APLOKe2 : 


APLNPI : 


APLNP?: 


ROR A 
AND 
CLC 
ADC 
STA 
TYA 
LDY 
SEC 
SBC 
BCC 
INY 
JMP 
TYA 
SEC 
SBC 
STA 
LDA 
JSR 
RTS 


#67 


#1 


PAD18, X 


#32 
HITMIN 


SB32 


#3 


PADVEC, X 


#$22 
ADELAY 
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sMAKE IT 1-8. 
:STOW 1-8 VALUE. 


sNOW WE'LL DIVIDE BY 32 TO GET -3 TO +4 VALUE. 


sBOTTOMED OUT 


;GET THE COUNT, BROTHER 


sSLIDE TOWARDS THE NEGATIVE. 
;57TOW *ER AWAY. 


;TWIDDLE THUMB FOR A WHILE TO ALLOW SAMPLING 
sCIRCUITRY TO SETTLE. 


APLOC - THIS ROUTINE TAKES THE VALUES READ FROM THE PADDLES AND APPLIES 


THEM *LOCALLY*. *LOCALLY’ MEANS THAT ONLY THE REGISTERS THAT ARE 


DEPENDENT ON THE PADDLES ARE AFFECTED. 


TAX 


JSR 
LDA 
BEG 
LDY 
CPY 


BPL 


TAMFLG 
APLNPD 


PADFUL-1, X 


TBSPTR 
APLOK1 
TBSPTR 
MAXPTS 
NUMPTS 
TSZDSP 
SAMFLE 
APLNP1 


PADFUL-1, X 


BSPTR 

APLOK2 
BSPTR 

SNMPTS 
S5ZD5P 
COLFL6 
APLNP2 


PAD18-1, X 


DCLOOK-1, X 


COLCKB 
QSTXEQ 
APLNGS 
SPTR 

SNMPTS 
APLEXT 
QSTXEQ 
4045 


;WHAT IS BRUSH SIZING MODE? 
sI7°S THE PADDLES ' WHOPEE ! 


; PADDLE )= TBSPTR 


sWHAT IS THE STROKE SIZING MODE? 


:IT'S THE PADDLES. 


;WHAT’S THE COLOR SELECTION MODE? 


:IT'S THE PADDLES, BOCHOO. 
‘LOOK UP THE COLOR 


;D0 THE COLOR CHANGE 

sARE WE DOING QUICK STROKE? 

sNOPE 

;CHECK IF WE?RE DONE QUICK STROKE. 


sNOPE 


sARE WE EXECUTING QUICKSTROKE TYPE 2. 
;NOPE 


a i a a | ee 


1894 
1897 
189A 
189D 
189F 
18AG 
18A2 
18A5 


18AB 
18AB 


188 
18Be 
18B5 
1888 
18BB 
18BD 


18Ce 
1803 
18C5 
18C8 


280414 
ABBA 
8CBS1F 
ACS21F 
8Co8iF 
ADI61F 
3883 “1860 
e@D218 
ADSS1F 
3883 “1874 
263911 
ADS@1F 
BD3E1F 
CBD40F 
ADRG1F 
1983 “1885 
7BB18 
AD6BIF 
SQiE “18A8 
AD6C iF 
DG1i9 “1BAB 


ADB91F 
DQ34 “18C68 


ADSO1F 
BD441F 
ADSL LF 
4SFF 
18 
6981 
AD451F 
4C0818 


ADSBIF 
D@iB “18C8 
AD74iF 
1686 “1888 
ADSOIF 
8D461F 
AD7S1F 
1888 “18C8 
ADSLIF 
4SFF 

18 

6901 
8D471F 

68 


EO OO ee oe ae ee ee ie a ae 
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JSR —_- PRORGE sYES, GO BACK TO STARTING SCREEN LOCATION 
LDY #0 
STY —QSTXEQ STURN OF DOING QUICKSTROKE FLAG. 
LDY —-BSPTR 
STY —SPTR sSET STROKE BUFFER TO BEG OF CURRENT STROKE. 
LDA =: VISHLD sRESTORE VISUALIZE MODE FLAG 
BMI — APLNVI 
JSR VERHPT STURN VISUALIZE BACK ON 
APLNVI: LDA —-LOCHLD sRESTORE LOCATE FLAG 
BMI  APLNL2 
JSR —_ LOCON 
APLNL2: LDA —- SPDHLD sRESTORE FORMER SPEED 
STA CHARI 
JSR —_- UPDSPD 
LDA = DRWHLD sRESTORE BRUSH UP/DOWN FLAG. 
BPL —APLNGS ‘BRUSH WAS ON, LEAVE IT ON. 
JSR DTRNOF 
APLNGS: LDA —- LOCFLG SARE WE IN LOCATE MODE? 
BMI  APLNLO s NOPE 
LDA ——-CURLOC SARE PADDLES DOING THE LOCATION? 
BNE APLNLO sNOPE, KB IS. USEX & USEY HAVE ALREADY BEEN 
- FIGURED. 
LDA —sORGFLG :IF COMMAND WAS GIVEN TO RE-ORIGINATE 
BNE  APLEXT sWHILE ENTERING PATTERN, THEN DON’T RUIN 
; :THAT VECTOR WITH LOCATE VECTOR. 
LDA = PADVEC ‘GET X VECTOR FROM PADDLE 1. 
STA —_—USEX 
LDA = PADVEC+4 ‘GET Y VECTOR FROM PADDLE 2. 
EOR -#$FF sNEGATE IT 
CLC 
ADC 
STA ——USEY 
JMP = APLEXT 
3 
APLNLO: LDA —-CURSRC SARE PADDLES CURRENT STROKE? 
BNE — APLEXT 
LDA —XCRUISE “VES. IS X OVERRIDE ON? 
BPL —APLXON :YUP, PADDLE HAS BEEN OVERIDDEN. 
LDA = PADVEC ‘NOPE, USE PADDLE VALUE FOR X VECTOR. 
STA _BUSEX 
APLXON: LDA —- YCRUISE 
BPL = APLEXT 
LDA —sPADVEC+4 
EOR —-4$FF : NEGATE 
CLC 
apc #1 
STA BUSEY 
APLEXT: RTS 


; GETVEC - THIS ROUTINE TAKES THE DATA FROM THE VARIOUS REGISTERS SET UP 


® 
3 
2 
3 
$ 
a 
$ 
3 
e 
b 
$ 


BY THE KB HITS AND READING OF THE PADDLES, AND APPLIES IT, 
COMING UP WITH A VECTOR, (USEX, USEY) TO BE PROCESSED BY 
SAVVEC AND THEN POSSIBLY PASSED ONTO APPLICATION TO A 
TARGET. 








18C9 
18CB 
18CE 
18D1 
18D3 
16D6 
18D9 
18DB 
18DE 
18E@ 
18E3 
18E5 
18E8 
18EB 
18EE 
18F i 
18F3 
18F6 
18F9 


18FF 


ASB 
6D861F 
ADG11F 
FOO3 “18D6 
4C6419 
ADASIF 
F@1i3 “18EE 
ACSB IF 
B174 
BD441F 
Bi76 
8D4S51F 
EES81F 
406419 
ADAS1F 
FOF “1982 
ADBAIF 
8D441F 
ADBBIF 
8D45iF 
406419 
AD6BIF 
1@CC “*18D3 
ADG71F 
1888 “1914 
AD7@iF 
3883 “1914 
EER6IF 
ADSBIF 
FQ3F “1958 
ACB7iF 
Bi6C 

tal 

Bi6E 
CCAB1F 
9885 “192B 
AGFF 
8CB71F 

AB 

AD671F 
1083 “1934 
EEB7iF 
AD721F 
S885 “193E 
8A 

4SFF 

AA 

E8 

AD731F 
3885 “1948 
98 

4SFF 

AB 


SORCIM 65@x Assembler ver 3.9 
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3 

GETVEC: LDA 
STA 
LDA 
BEG 

GTVESC: JMP 

GTVDOK: LDA 
BEG 
LDY 
LDA 
STA 
LDA 
STA 
INC 
JMP 

GTVNGS: LDA 
BEQ 
LDA 
STA 
LDA 
STA 
JMP 

GTVNOR: LDA 


GTVNFR: LDA 


STLOK: TAY 


GTVNI: LDA 


GETNNX: LDA 


EOR 
TAY 


#@ 
STKFLG 
HCOUNT 
GTVDOK 
GTVBYE 
QSTXEG 
GTVNOS 
SPTR 
[BBASEX], Y 
USEX 
[BBASEY], Y 
USEY 
SPTR 
GTVBYE 
ORGFLG 
GTVNOR 
ORIGX 
USEX 
ORIGY 
USEY 
GTVBYE 
LOCFLE 
BTVESC 
FRZFLG 
GTVNFR 
QSTFLG 
GTVNFR 
STKFLG 
CURSRC 
BETVEX 
OPTR 
[SBASEX], Y 


[SBASEY], Y 
ONMPTS 
STLOK 

#255 

OPTR 


FRZFLG 
GTI 
OPTR 
XNEG 
GETNNX 


#$FF 


YNEG 


22/22/77 22:77 Page 34 
PPiG Ss. ASM 


sCLEAR UPDATE STROKE BUFFER FLAG THAT SAVVEC 
‘WILL BASE SOME DECISIONS ON. 

sDON’T UPDATE IF WE?RE NOT ABOUT TO EXECUTE 
‘MAIN LOOP. 

sLET'S GET THE FUCK OUT OF HERE. 

sDON'T UPDATE IF WE'RE DOING A QUICKSTROKE. 
sNOT DOING A QUICK STROKE 

sWERE DOING A QUICKSTROKE, LETS GET THE 
sNEXT VECTOR FROM THE STROKE BUFFER. 


sORIGINATE IN PATTERN COMMAND GIVEN? 
;NOPE 
;6ET VECTOR PREPARED BY THE EGORGE ROUTINE. 


sTHAT?S ALL FOLKS. 
sDON’T UPDATE IF IN LOCATE MODE. 

sGET QUT, WE ALREADY HAVE A LOCATE VECTOR. 
sDONT UPDATE IF FREEZE IS ON. 


315 QUICK MODE ON? 
3 NOPE 
;OK, WE'LL DO IT. 


;CURRENT STROKE SOURCE IS A PATTERN, LET'S GET 


3A VECTOR FROM IT. FIRST CHECK TO MAKE SURE 
;WE’RE NOT PAST END OF SOURCE PATTERN. 


sIF WE'RE FROZEN, THEN DON'T INCREMENT PTR 
sTO SOURCE PATTERN. 

sSO WE GET THE NEXT VECTOR NEXT TIME. 

s1S NEGATE X ON? 

sNEGATE X IS NOT ON, 


sNEGATE IT 


1947 
1948 
194B 
194D 
1958 
1953 
1955 
1958 
195B 
195E 
1961 
1964 


C8 

AD741F 
1883 “1958 
BE461F 
AD7S1F 
1083 “1956 
BC471F 
AD46iF 
BD441F 
AD471F 
BD451F 

68 


ACSB IF 
AD6DIF 
3865 “19D3 
ADBE1F 
FQ38 *19R2 
ADSBIF 
D@B8 “197F 
AD461F 
@D471F 
F@23 “19R2 
CB6E1C 
ACSB LF 
AD461F 
9174 
AD471F 
9176 
EES81F 
CO2E IF 
9@0B “19R2 
AGB 
8C871F 
ACS21F 
8C581F 
C@EBIA 
A574 


SORCIM 65@x Assembler ver 3.0 
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GETNNY : 


GETVEX: 


GETVEX: 


INY 
LDA 
BPL 
STX 
LDA 
BPL 
STY 
LDA 
STA 
LDA 
STA 


GTVBYE: RTS 


20 wy Se we RR 


SAVVEC: 


SVVNPD: 


SVVNUP: 


XCRUISE 
GETVCX 
BUSEX 
YCRUISE 
GETVEX 
BUSEY 
BUSEX 
USEX 
BUSEY 
USEY 


29/72/27 22:77 Page 35 
PPiG Ss. ASM 


i 
;YES, BUSEX HAS BEEN SET BY PRIOR KB HITS. 


390 DON'T TRASH THEM OUT NOW. 


SAVVEC - SAVE VECTOR IN STROKE BUFFER IF IN VISUALIZE MODE; 


GET VECTOR OUT OF STROKE BUFFER IN EXECUTING A QUICK 
STROKE. IN ANY CASE, EXIT WITH USEX & USEY. 


LDY 
LDA 
BMI 


BEG 


JSR 


STA 
STA 
LDA 
CLE 
STA 


STA 
LDA 


SPTR 

VISFLG 
SWANVI 
STKFL6 
SVVNUP 
CURSRC 
SVVNPD 


BSPTR 


BBASEX+1 
CBASEX+1 
BBASEY 


BSPTR 
BBASEY+1 


CBASEY+1 
SNMPTS 


;GET HOOK INTO STROKE BUFFE 

sVISUALIZE ON? 

;NOPE 

sSHOULD WE UPDATE THE STROKE BUFFER? 
sNOPE 

;IF CURRENT STROKE IS A PATTERN, THEN DON’T 
sIGNORE @ VECTORS. 

;NOW CHECK TO MAKE SURE THAT VECTOR IS 
sNON-ZERO. CAUSE WE DON’T WANT TO ENTER 
;ZERO VECTORS. BRANCH IF ZERO. 

sERASE LAST VISUALIZATION 


sPAST END? 

‘YUP, REINIT ALL PTRS. 

eSOURCE PATTERN 

sDISPLAY VECTOR TO BE APPLIED 

‘NOW SET UP FOR DISPLAY OF VISUALIZATION. 


;WE ONLY WANT TO SHOW THAT PORTION OF THE 
sSTROKE TO THE RIGHT OF BSPTR. 
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/usr/eric/cfm/PP1G6 PAINTER POWER 16 11/13/83 19:07:35 PPi6 ss. ASM 
1908 38 SEC 
19Ci EDSeiF SBC BOPTR 
1904 B8DeFIF STA CURPTS 
19C7 CDeCciF CMP LNMPTS ;IF IT°S NOT THE SAME # OF PTS WE DISPLAYED 
i9TA =FOG6 “19D2 BEQ SVWNC1 ;LAST TIME, THEN SET THE CHANGE FLAG. 
19CC =2B8AIB J&R S5ZD5P 
i9CF EE?FIiF INC CHGFLG 
19D2 68 SWNC1i: RTS 
3 
19D3 2@EBIA SVWNVI: JSR USEDSP sDISPLAY WHAT WE WILL APPLY 
19D6 A568 LDA TBASEX soeT UP FOR DISPLAY OF BRUSH 
i9D8 18 CLC 
19D9 6D9L1F ADC TBSPTR 
i9DC 8578 STA CBASEX 
i9DE A569 LDA TBASEX+1 
1968 A571 STA CBASEX+1 
19E2 ADGA LDA TBASEY 
1964 18 CLC 
19E5 «6D9L1F ADC TBSPTR 
19EB 8572 STA CBASEY 
19ER = A56B LDA TBASEY+1 
i9EC 8573 STA CBASEY+1 
19EE ADeBIF LDA NUMPTS 
19Fi 38 SEC 
19F2 EDSLIF SBC TBSPTR 
19F5 « 8DeF IF STA CURPTS 
1978 CDeCiF CMP LNMPTS ;IF WE'RE NOT DISPLAYING SAME # OF PTS AS 
19FB FOG6 “1AG3 BEQ SVWNC2 sLAST TIME, THEN SET THE CHANGE FLAG. 
19FD 2@ADIB JSR TSZD5P 
1A@@ EE?FIF INC CHGFLG 
1A@3 68 SVVNCe: RTS 
3 
: 
3 
; WRTEXT - WRITE TEXT OF CTL DISPLAY INTO BOTTOM 4 LINES OF TEXT SCREEN, 
; PROVIDED THAT TXTFLG IS SET APPROPRIATELY. 
3 
$ 
1AG4 2BA4FE WRIEXT: JSR SETNRM ;oET DISPLAY TEXT MODE = NORMAL 
1A@7 = ADB21F LDA TXTFLG sGET TEXT WRITING DIRECTIONS 
1AGA SDBSIF STA CTXFLG ;WHAT WE ARE DIRECTED TO WRITE CAN BE RELIED ON 
1AGD 3085 “1A14 BMI WRTOPe sWRITE TOP 2 LINES ONLY. 
1AGF DGGE “1A17 BNE WRNONE ;WRITE NO LINES 
IALL 284218 JSR WRETL2 ;WRITE BOTTOM 2 LINES 
iARi4 281818 WRTOP2: JSR WRCTLi ;WRITE TOP 2 LINES. 
ifl7? = 68 WRNONE: RTS 
$ 
; WRCTL 1 & 2 - WRITE TOP & BOTTOM 2 PAIRS OF LINES. 
3 
4 
1A18 AGBB WRCTLi: LDY #8 ;MOVE CURSOR TO LEFT MARGIN 
LAIR 8424 STY CURSRX 
iAiC A914 LDA #28 sO)ART ON ROW 21 (OF 24). 
IAIE 8525 STA CURSRY 
iAe@ e202eFC JSR CURSET ;SET UP POINTERS (THANKS APPLE) 





1A23 
1A26 
ifi28 
ie 
iReD 
LACE 
1A31 


1A32 
1A34 
1A36 
1A38 
LA3A 
1A3D 
1A48 
if4e 
1A44 
1R47 
1A48 
1A4B 


1A4C 
1A74 
1ASB 


LAST 
1AC4 
IAEA 


BS4CiA 
FQB9 “1A31 
8908 

CF OFD 

C8 

4C23iA 

68 


ABA 
8424 
A916 
8525 
e@22FC 
B9SCIA 
F@@9 “1A4B 
8908 
COFOFD 
C8 
4C3D1A 
68 


2820585858 
9649535941 
8 


9155494348 
9792415041 
a2 


AD471F 
RES61F 
CDse1F 
D@SS5 “1AFB 
ECSL1F 
F@i6 “iBil 
AcBe 
BEASIF 
AD471F 
RE4S61F 
8D3e1F 
BESLIF 
AGS 1 
e@CS1B 

68 


ADSSLF 
CD331F 
DGi8 “1B3e 
ADSAIF 
CD341F 
DG18 “1B32 
ADSBIF 
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WRTLPI: 


WRDNI: 


; 
WRCTL2: 


WRTLPe: 


WRDN2: 


; 
TXBUF 1: 


' 
TXBUFe: 


ae wae 


—@e we 


USEDSP: 


USEDF : 


USEDEX: 


; 
BASDSP: 


LDA 
BEQ 
ORA 
JSR 
INY 
JMP 
RTS 


LDY 
STY 
LDA 
STA 
JSR 


DB 
DB 
DB 


LDA 
LDX 
CMP 


22/72/77 29:92) Page 37 
PPiG Ss AS 


TXBUF 1, Y 
WRDNI 
#509 
COUT1 


:@ MARKS LAST CHARACTER 
sAPPLE-FY IT. 


WRTLP1 


#0 
CURSRX 
#22 
CURSRY 
CURSET 
TXBUF2, Y 
WRDN2 
#$C0 
COUT! 


sOTART ON ROW 23 (OF 24). 


WRTLPe 


*(-XXX-YYY) (-XXX-YYY) BRSIZ XXX SSIZ XXX? 
‘VISUALIZE V LOCATE L STOP PAINT’ 
3 


*QUICKMODE @ KB-HOLD Z/X COLOR X BRS-UP U? 
*WRAPAROND W REVERSE ,/. MAKE M PMODE’ 
9 


ROUTINES TO DISPLAY COORDINATES/DISPLACEMENTS 





BUSEY 
BUSEX 
LBUSY 
USEDF 


#TXUSD 
XYPRI 


317°S DIFFERENT, LET'S DISPLAY IT 


iBe5 
1B28 
iBeA 
1BeD 
1B38 
1BSe 
iB35 
1B37 
iB39 
1B3B 
1B3E 
iB4i 
1B43 
1B46 
1B46 
1B4A 
1B4D 
1B38 
1B53 
1B55 
1B58 
1B5B 
iBSD 
1B68 
1B63 
1B65 
1B68 
1B6A 
1B6D 
LBoF 
iB71 
1B74 
1B77 
iB7A 
1B7C 
1B7F 
iBBe 


COSS1F 
D@@8 “1B3e 
ADSCIF 
CD361F 
F@SS “1BB2 
ADB21F 
C3981 

F@49 “1B82 
ABS 
RESALF 
BES41F 
FQQ7 “1B4A 
ADA 1F 
D@@2 “1B4A 
AgSB 
BCAZ1F 
ADSSIF 
BD331F 
AGSC 
c@F21B 
e@icit 
ABBE 
RESCIF 
BE361F 
D@@S5 “1BBA 
ADSBIF 
1807 “1B71i 
ADACIF 
Dee *1B71 
ABB 
8CAZIF 
ADSBIF 
AD351F 
AGB 

CF 21B 
e@icic 

68 


AC2EIF 
C8 
8C381F 
ADCE IF 
38 
EDS21F 
CD381F 
FQ@F “1BA5 
BD3BiF 
ABZ 
ACES 
BEASIF 
Aes 
e@icic 
68 


ACEBIF 
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BASDF : 


BASXIN: 


BASYOT: 


BASYIN: 


BASDEX: 


} 
SSZDF : 


SSZD5P: 





CMP 
BNE 
LDA 
CMP 
BEG 
LDA 
CMP 
BEQ 
LDY 
LDX 
STX 


STY 


STA 


JSR 
JSR 
RTS 


STX 
LDX 
JSR 


SSZEXT: RTS 


i 
TSZDF: LDY 


LBASY 
BASDF 


SCSTRY+1 
LBASY+1 


BASDEX 
TXTFLG 
#1 
BASDEX 
#$88 


SCSTRX+1 


LBASX+1 
BASXIN 
OFFLAG 
BASXIN 
#920 
NUMASK 
SCSTRX 
LBASX 
#TXBSE 
PRSIGN 
DCBYTE 
#589 


SCSTRY+1 
LBASY+1 


BASYOT 
SCSTRY 
BASYIN 
OFFLAG 
BASYIN 
#40 
NUMMSK 
SCSTRY 
LBASY 


#TXBSE+4 


PRSIGN 
DCBYTE 


SNMPTS 


LSNMPT 
SNMPTS 


BSPTR 
LSNMPT 
SSZEXT 
LSNMPT 
#TXS5Z 
#$88 
NUMMSK 
#529 
DCBYTE 


NUMPTS 


72/72/77 27377) Page 38 
PPi6 Ss. ASM 


;00PS WE'RE NOT SUPPOSED TO WRITE TEXT. 


;IF SOME POINTS ARE STILL ON SCREEN, THEN 
;DON’T DISPLAY X OR Y IN INVERSE. 


;OTORE NORMAL/INVERT PRINT MASK 


;PRINT SIGN & TAKE ABS VALUE 


;CHECK HIGH BIT OF Y FOR ) 127. 


:PRINT IT IN INVERSE. 


;FORCE LSNMPT TO BE DIFFERENT 





iBAS 
iBAA 
1BAD 
1BBS 
iBB1 
iBB4 
1BB7 
iBBS 
1BBC 
iBBE 
1BC 
1BC3 
iBCS 
1BC8 


BCS 
iBCA 
iBCD 
LBCF 
iBDi 
ibDe 
iBD3 
1BDS 
1BD6 
iBDB 
LBDA 
iBDD 
1BE@ 
1BEI 
1BE3 
1BE4 
LBE6 
iBEB 
LBEB 
iBEE 
BEF 
iBF@ 


BF i 


LBFe 
1BF3 
1BF4 
LBF6 
1BF8 
LBFA 
iBFD 
LBFF 
1088 
1C@1 
iC@e2 
1084 
1087 


C8 
8C371F 
ADEBIF 
38 
EDSLIF 
CD371F 
FO@F “1BC8 
8D371F 
ABIC 
A2BR 
BEASIF 
ALBB 
egicic 
68 


48 

ADB21F 
C981 

F@IE “1BEF 
BA 

48 

A2B8 

68 

1082 “iBDA 
Ae@3 
COF21B 
eBiCiC 

C8 

A2O8 

68 

1882 “iBE8 
A2e@3 
2OF21B 
e@icic 

68 

68 

68 


AD 


ODASIF 
9164 
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TSZDSP: 


TSZEXT: 


5 
XYPRI: 


DONXYP: 


XYEXT: 


a 
« 


NEGNUM: 


INY 
STY 
LDA 
SEC 


== 
>< 
Dd 


sEBRE 


INY 


5 


RTS 


B 


ORA 
STA 





LNUMPT 
NUMPTS 


TBSPTR 
LNUMPT 
TSZEXT 
LNUMPT 
#TXTSZ 
#489 
NUMMSK 
#3 
DCBYTE 


TXTFL6 


XYEXT 


#3 
PRSIGN 
DCBYTE 


#3 
PRSIGN 
DCBYTE 


$AD ;==FLAK 


NEGNUM 


[CPAGE12, Y 


[CPAGE1I, Y 


29/72/77 22:27) Page 39 
PPiG =. ASM 


s0K TO WRITE IN TEXT AREA? 
sNOPE 

sY=DISPLAY POSITION 
sA=DELTAY Y, X=DELTA xX 
sASSUME POSITIVE 8 BIT # 


‘YES, IT?S POSITIVE 
‘NEGATIVE, ADD CORRESPONDING HIGH ORDER BITS 
“DO THE X COORD 


sASSUME POSITIVE 8 BIT # 


:VES, IT'S POSITIVE 
sNEGATIVE, ADD CORRESPONDING HIGH ORDER BITS 
“DO THE Y COORD 


:PRSIGN EVALUATES 1@ BIT SIGNED INTEGER. 
:PRINTS *+° OR '-!, DEPENDING ON SIGN. 
sRETURNS WITH 1@ BIT ABSOLUTE VALUE. 
sHIGH ORDER IN X, LOW ORDER IN A. 

“AN INVERSE '+! 

-OR IN NORMAL/INVERSE MASK 

sDISPLAY IT 


“AN INVERSE '-* 





SORCIM 65@x Assembler ver 32.8 
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/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:07:35 PPiG. «= L ASM 
ice9 CB INY 
ic@A 68 PLA sNOW TO NEGATE THE 1@ BIT. 
COB 49FF EOR = #$FF : COMPLEMENT 
ica 18 CLC 
CVE 6901 ADC SAND INCREMENT (ALA PDP-a) 
iC1@ 48 PHA 
iCii aA TXA :GET HIGH ORDER 
C12 49FF EOR = #$FF ‘THE SAME ORDEAL 
1C14 6900 apc sDON'T ADD ONE, IT WOULD BE IN THE CARRY. 
1C16 2903 AND «#3 
icia AA TAX sPUT HIGH ORDER BACK 
C19 68 PLA :GET LOW ORDER 
iCiA 69 RTS 
§ 
{C1B AD DB $AD :==FLAK 
§ 
;  DCBYTE - PRINT 1@ BIT HEX # IN DECIMAL - PLUS #°S ONLY 
LAE Ee 
§ 
CIC 48 DCBYTE: PHA sFIRST LET'S FIGURE OUT IF WE? RE 
iC1D ADB2I1F LDA ~=—sTXTFLG sSUPPOSED TO BE WRITING IN TEXT AREA. 
C20 C981 CMP HH s0K TO WRITE IN TOP LINE? 
iC22 FR48 “1C6C BEQ —sDCNDIG s NOPE 
1(24 A930 LDA S30 
iC26 @DAZIF ORA NUMMSK sFOR INVERSE/NORMAL °@* THRU °9! 
1C29  aD3DIF STA TMPNUM sWE'LL INCREMENT THIS 
1C20 BD7ELF STA TEMP 
iC2F 68 PLA 
iC3@ 38 DCSUBI: SEC ‘JUST IN CASE WE NEED SEC 
1C31 £964 SBC «#100 
1033 Bee3 “1038 BCS - DCNCC1 sCARRY STILL SET, NO BORROW. 
ic35 cA DEX sDECRMENT HIGH ORDER 
1036 3006 “1C3E BMI COUT :GONE BELOW 9? 
1038 EESDIF DCNCCi: INC TMPNUM 
1038 4C301C JMP  —- DCSUBL :G0 SUB ANOTHER 100 
1C3E 48 DCOUTi: PHA 
iC3F AD3DIF LDA = TMPNUM 
C42 9164 STA —sCCPAGE12,Y sDISPLAY IT 
1044 CB INY 
iC45 68 PLA 
1046 6964 ADC «HIG 
iC48 AETEIF LDX TEMP sANOTHER '@° - FOR THE TENS 
iC4B 38 DCSUB2: SEC 
iC4C E9A SBC #10 
1C4E 9004 “1054 BCC ©: DEDUT2 
iC5@ EB INX 
1051 4C4BIC JMP  —-DCSUB2 
i054 48 DCOUT2: PHA 
1055 aA TXA 
1056 9164 STA —s[CPAGE1],Y 
ic58 Ca INY 
i059 68 PLA 
iC5A 690A ADC é 
ICSC AETEIF LDX TEMP 





1C3F 
1C68 
iC6e2 
1064 
iC65 
1068 
1C69 
iC6B 
iC6C 
iC6D 


iC6E 
iC71i 
1073 
1076 
iC78 
1C7B 
iC7E 
iC81 


38 
E981 


9084 “1068 


EB 
4C3F iC 
BA 
9164 


Se S 


ADSG1F 


1845 “1CB8 


AD2CIF 


FQ36 “1CAE 


8D3DiF 
RESIIF 
ADZAIF 
48 

ACSDIF 
B90065 
AD7E1F 
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DCSUB3: 


DCOUTS: 


DENDIG: 


ELOOP: 


DONERA: 


DONERX: 


DONER@: 


SEC 
SBC 
BCC 
INX 
JMP 
TXA 
STA 
RTS 
PLA 
RTS 


LSTERA 


LDY 


STA 


TAY 


JSR 


STA 


PLA 
LDA 
STA 
LDA 
STA 
RTS 





22/27/77 22:22) Page 41 
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#1 
DCOUTS 
DCSUBS 


[CPAGE1], Y 


- ERASE LAST THING WE DREW, 
REPLACING WHAT WAS THERE. 





ERSFLG “DON’T ERASE IF ERASE FLAG NOT ON. 
DONER@ 
LNMPTS *GET LAST # POINTS PLOTTED. 
DONERX ¢DON’T DO IT IF THERES NOTHING TO ERASE 
TMPNUM 
LASTSX *GET LAST (X,Y) PLOTTED AT. WELL 
LASTSY sWORK BACKWARD FROM THERE. 
TMPNUM 
LSTBYT, Y *GET BYTE THAT CONTAINED PIXEL THAT WAS THERE 
TEMP 
HPOS *GET ADDRESS OF WHERE BYTE WAS IN MEMORY. 
TEMP 
CFROMI, Y sPUTPER BACK 
TMPNUM 
TMPNUM 
DONERA “WE? RE DONE 
*RESTORE Y 
[CBASEY], Y :GET TO PREVIOUS Y. 
#$7F STAKE CARE OF WRAPAROUND 
‘NOW DO SAME FOR X. 
[CBASEX], Y 
ELOOP 
#0 
ERSFLG *TURN OFF ERASE FLAG, WE DID IT. 


#1 ;IF WE ACTUALLY ERASED, THEN SET CHANGE 
CHGFLG ;0N SO THAT PATTERN WILL BE REDRAWN. 


5 
; WRAPAT - PATCH THE DRAW ROUTINE SO IT TAKES CARE 
: WRAPAROUND LIKE WE’ VE BEEN DIRECTED. 


/usr/eric/cfm/PP1G PAINTER POWER 16 11/13/83 19:07:35 PPiG = ASM 
fan 
3 
iCB9 ADSBIF WRAPAT: LDA WRPIND sWHAT?S THE FLAG SAY? 
iCBC 3006 “*i1CC4 BMI WARPOF s1T SEZ NO WRAPAROUND! ! 
iCBE AI38 LDA #INSSEC sSET PATCH LOC TO SEC 
1fC@ &D831D STA DRWPAT 
1CC3 68 RTS 
ifC4 A916 WARPOF: LDA #INSCLC sSET PATCH LOC TO CLC 
ifC6 8besiD STA DRWPAT 
ifC9 68 RTS 
$ 
= INSSEC: EGU $38 
= 0018 INSCLC: EGU $18 
; DRAWIT - DRAW THE CURRENT PATTERN 
fe 
3 
1CCA AD2FIF DRAWIT: LDA CURPTS ;SKIP OUT IF THERE'S NO PATTERN TO DRAW 
iCCD Dees “1CDe BNE HAVSUM 
iCCF 4€631D JP DONDRW 
ifd2 AIB1 HAVSUM: LDA #1 
1€D4 &D3DiF STA TMPNUM sINIT POINT COUNTER 
iCD7 A988 LDA #8 ;CLEAR COUNT OF POINTS PLOTTED ON SCREEN 
iCD9 8DALIF STA PTCNT 
iCDC = AESSIF LDX SCSTRX ;WE'LL USE THE 1@ BIT SCREEN LOCATION 
1CDF 8E9DIF STX SDSTRX ;WHILE DRAWING, SO WE CAN TELL WHEN WE HAVE 
iCE2 AESAIF LDX SCSTRX+1 ;WRAPPED AROUND. 
iCES BESEIF 5TX SDSTRX+1 
1CE8 ACIBIF LDY SCSTRY 
iCEB 8C9FIF STY SDSTRY 
1CEE ACICIF LDY SCSTRY+1 
iCFi 8CA@IF STY SDSTRY+1 
iCF4 ADSFIF DLOOP: LDA SDSTRY 
iCF7 297F AND #$7F sKEEP Y { 127 WHEN LOOKING IN TABLE 
iCF9 AB TAY 
iCFA AESDIF LDX SDSTRX 
iCFD 289E1D JSR HPOS sFIND WHERE PIXEL RESIDES IN MEMORY 
1D8@ B16 LDA (FROM), Y sGET BYTE THAT'S THERE RIGHT NOW 
iD@2 46 PHA ;AND HOLD ON TO IT. 
iD@S 18 DRWPAT: CLC ;THIS LOCATION GETS PATCHED TO A SEC/CLC BY 
; ;THE WRAPAT ROUTINE. WHEN WRAPAROUND IS ON, 
; ;WE DON'T BOTHER CHECKING. 
1D@4 BG15 “1D1B BCS DRWDO 
1D@E = ADAGIF LDA SDSTRY+1 ;OEE IF ANY HIGH ORDER BITS ARE ON 
1D@9 =BD9EIF ORA SDSTRX+1 
iD@C =DOBS *1D13 BNE DRWNDO ;IF SO, WE'RE OFF THE SCREEN. 
1D@E ADIFIF LDA SDSTRY sOEE IF Y ) 127 
1D11 1088 “1DiB BPL DRWDO ; (=127 
iDig ADACIF DRWNDO: LDA OFFLAG ;SYSTEM WRAP FLAG ON? 
iDi6 §=D@B9 “*1D2l BNE DRWNPL 3NO - ONLY PLOT POINTS THAT ARE ON SCREEN. 
iD18 4CiE1D JMP DRWDO+3 ;YES - PLOT ALL POINTS, BUT ONLY COUNT THOSE ON 
1DiB EEALIF DRWDO: INC PTCNT sINCR # POINTS WITHIN SCREEN BOUNDS. 
iDiE 20ACID JSR HPLOT ;OK, PLOT THE PIXEL. 
iDei ACSDIF DRWNPL: LDY TMPNUM ;GET COUNTER/ POINTER 
iDe4 68 PLA ;GET OUR PREVIOUS BYTE BACK 
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iD25 
1D28 
iD2B 
iDeD 
ID2E 
1D38 
iD3e 
1D34 
1D36 
iD39 
iD3C 
1D3D 
1D49 
iD42 


990065 
CCeF iF 


FQ26 “1D63 


18 
ALBS 
Bi7e 


i8@2 “1D36 


R23 
6D9F IF 
8D9F iF 
8A 
6DAGIF 
2983 
BDAGIF 
A288 
18 
Bi7@ 


1082 “*iD4E 


A203 
6D9DIF 
BD9DIF 
8A 
6DSE1F 
C983 
8DSE1F 
EESDIF 
4CF4iC 
ADSDIF 
8D391F 
ADSF iF 
edtF 
BDSAIF 
AIBS 
BD3G1F 
ADeF iF 
8D2CiF 
68 


AD 


8561 


8468 
AD411F 
9168 


AD421F 
9168 


D@Fe “1DB6 


SORCIM 65@x Assembler ver 3.8 
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DRWNM1 : 


DRWNFi2 : 


DONDRW: 


STA 
CRY 
BEG 
CLE 
LDX 
LDA 
BPL 
LDX 
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LSTBYT, Y SAND STORE IT IN ERASE ARRAY. 
CURPTS SARE WE DONE? 

DONDRW “YUP 

#0 :DO A 1@ BIT ADD FOR X & Y HERE. 
[CBASEY], Y 

DRWNMI :IT'S NOT A NEG VECTOR 


#3 ;GET HIGH ORDER BITS FOR NEG VECTOR 


SDSTRY sADD TO OUR CURRENT LOCATION, LOW ORDER 
SDSTRY 
sNOW TO ADD THE HIGH ORDER STUFF. 
SDSTRY+1 
#3 sKEEPTO +/- Sil 
SDSTRY+1 
#9 
CCBASEX], Y 
DRWNMMe s1T’S NOT A NEG VECTOR 


#3 ;GET HIGH ORDER BITS FOR NEG VECTOR 





SDSTRX sADD TO OUR CURRENT LOCATION, LOW ORDER 
SDSTRX 
‘NOW TO ADD THE HIGH ORDER STUFF. 
SDSTRX+1 
#3 *KEEPTO +/- Sil 
SDSTRX+1 
TMPNUM 
DLOOP sTIME FOR ANOTHE 
SDSTRX 
LASTSX sREMEMBER LAST (X,Y) PLOTTED SO WE CAN 
SDSTRY *WORK BACKWARDS FOR ERASURE. 
#$7F 
LASTSY 
#$8 sTURN THERE’S SOMETHING THAT YOU MIGHT WANT TO 
ERSFLG sERASE FLAG ON... 
CURPTS 
LNMPTS sAND REMEMBER HOW MAHY PTS WE DID. 
$AD ;==FLAK 


: 
;  HBKGND - DRAW HIRES BACKGROUND 
; eer ene ne Ce OR a A 888 ae NE ee “sem ce cee 
$ 


#$20 
FROM+1 
#0 

FROM 
HCOLOR 
[FROM], Y 


;WE’ RE GONNA FILL DA PAGE 


HCOLR2 
CFROMI, Y 


;GET SHIFTED VERSION OF COLOR BYTE 


BKLOOP 


1DSE 
DAL 
iDAS 
LDAG 


IDAB 


1DB9 
IDBB 
IDBE 
1DC@ 
1DCe 


1DC3 
LDCS 
1DC8 


iDCC 


1DCD 
iDCE 
1DD@ 
1DD3 
1DD4 
iDD6 
1DD8 
1DDB 


DDE 
iDDF 
1DE1 


F661 
AD 1 
cuir 
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D@EA “1D86 


68 


AD 


AD411F 


HPLOT 


eee) ee ee ee ee | eT 


; 
j 
HPLOT: 


9083 “1DB6 


AD421F 
4CB91D 
= 1DB7 


5168 


9168 
9168 


3168 
30862 
1168 
9168 


8D7E1F 


1168 
cd7F 
@D7E1F 
4CB91D 


BD7EiF 





NOSHFT : 
PNT IMP: 


; 
PAINTI: 


: 
PAINT2: 


: 
PAINTS: 


PAINT4: 


INC 
LDA 
AND 
BNE 
RTS 


DB 


FROM+1 
FROM+1 
#$1F 

BKLOOP 


$AD :==FLAK 
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- DIGITAL MERCURY’S TABLE DRIVEN HIRES PLOT ROUTINE. 
MUCHO WASTO CORE, BUT IT°S FAST !! 
ON ENTRY, Y HOLDS Y VALUE, Y(i28. X HOLDS X, X (256. 
HPOS EXITS WITH ADDRESS OF BYTE CONTAINING THE PIXEL 
IN FROM & Y. HPLOT ORS THE PIXEL INTO THE BYTE. 


LDA =—Ss«YTABI,Y 
STAs FROM+1 
LDA =—s«YTAB2, Y 
STA FROM 

LDY —-XTABI,X 
RTS 

TYA 

isk 

LDA —-HCOLOR 
BCC —-NOSHFT 
LDA = HCOLR2 
JMP PAINT 
FOU #0-2 

EDR ‘CFROMI,Y 
AND XTAB2, X 
EOR  CFROM],Y 
STA —sCFROM],Y 
RTS 

AND —-‘CFROMI,Y 
AND —-XTAB2, X 
ORA —sEFROMI,Y 
STA FROM], Y 
RTS 

PHA 

AND —«- #880 

STA TEMP 

PLA 

ORA —sFROM], 
AND —«-#$7F 

ora TEMP 

JMP = PAINT 
PHA 

AND #0 

STA TEMP 


‘GET HIGH ORDER BYTE OF ROW ADDR 
“GET LOW ORDER BYTE 


:GET OFFSET ON THIS ROW 


:IF ON ODD BYTE, THEN USE SHIFTED VERSION 
:0F THE COLOR BYTE. 


sTHE JUMP LOCATION HERE GETS PATCHED 
sNORMAL PAINT MODE 


;ISOLATE BIT FOR OUR PIXEL 


«NO CHANGE 
sTSOLATE BIT FOR OUR PIXEL 


*BLACK ==) COLORS, COLORS ==) WHITE 
sSAVE COLOR FAMILY 


;OR IN OUR COLOR FAMILY BIT 


sWHITE ==) COLORS, COLORS ==) BLACK 
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iDE4 68 PLA 

IDES § 3168 AND [FROM], Y 

IDE? = 297F AND #$7F 

IDES @D7EIF ORA TEMP 

IDEC = 4CB91D JMP PAINTI 
$ 

IDEF Bi6a PAINTS: LDA CFROM), Y ;COMPLEMENT WHATEVER'S THERE, IGNORE 
; ;CURRENT COLOR SETTING. 

1DFi 497F EOR #$7F ;RETAIN COLOR FAMILY 

1DF3 4CB9iD JM PAINT1 


1DF6 
1DF8 
LDFB 


1E@1 
1E@3 
1E@6 


8DSAILF 
BDSCIF 
ADSBIF 
e97F 

BDSBiF 


: 


STA 
STA 


STA 
RTS 


HGHCLR - CLEAR HIGH ORDER BITS OF SCREEN LOCATION 
USED TO GET BRUSH BACK ON SCREEN. 


#2 
SCSTRX+1 
SCSTRY+1 
SCSTRY 
#$7F 
SCSTRY 
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; PROGRAM REGISTERS 


8 
4 


1607 = 1Fa0 ORG $FF@@ AND (+0+$109) 

1FO@ 28 REMOTE: DB $00 sCOUNTER FOR *REMOTE? CONTROL 

iFQ1 20 REMTMP: DB «$0 sHOLDS VALUE OF REMOTE DURING EXECUTION 

“ALSO USED BY PROGRAM WHEN RETURN KEY IS HIT. 

iFe2 90 RCTR1: DB $80 *CHS@ WILL RETURN WHEN CTR IS EXHAUSTED 

iF@2 80 RCTR2: DB $00 

1FO4 a0 RCTR3: DB $00 

iFes ae TCTRI: DB $00 ‘THE TCTR SERIES ARE USED TO COUNT THE 

1FO6 00 TCTR2: DB $00 ‘NUMBER OF TICKS SINCE THEY WERE LAST 

iFO7 00 TCTR3: DB $00 » CLEARED. 

iFea 2A COLORS: DB $2A :GREEEN 

1Fa9 55 DB $55 :VIOLET 

1FQA 7F DB $7F sWHITE 

iFOB AA DB $AA ;ORANGE 

iF@C 0S DB $D5 ;BLUE 

iFOD 80 DB $8@ :BLACK II 

1FOE FF DB $FF :WHITE II 

{FOF eo DB $00 ;BLACK 

1Fi0 = 9008 ACLOOK: DS 8 SASCII LOOKUP TABLE FOR CUSTOMIZED COLORS. 

1Fi8 = 0008 DCLOOK: DS 8 sHEX LOOKUP TABLE FOR CUSTOMIZED COLRS. 

1F20 80 SPEEDS: DB $80 eTHE DELAY COUNT FOR EACH OF THE & SPEEDS 

1F21 48 DB $40 

iF22 20 DB $20 

iF23 10 DB $10 

iF24 08 DB $08 

iF25 04 DB $04 

1F26 a2 DB $02 

1F27 Ot DB $01 

{F28 00 SAVEX DB $0@ ;TEMP xX 

1F29 00 SAVEY DB $08 ;TEMP Y 

1F2A 00 MAXPTS: DB «$08 ‘MAX # PTS TO DISPLAY/ENTER 

1F2B 20 NUMPTS: DB $20 ¢# OF PTS TO ENTER/DISPLAY 

1F2C FF LNMPTS DB $FF ¢# OF PTS OF TARGET DRAWN LAST TIME 

1F2D 08 SMXPTS: DB $00 eMAX # PTS OF STROKE TO ENTER/DISPLAY 

1F2E 00 SNMPTS: DB $00 +# OF PTS OF STROKE TO CONSIDER 

1F2F 00 CURPTS: DB $00 *CURRENT # OF PTS TO DISPLAY 

1F20 00 ERSFLG: DB $00 ‘ERASE FLAG: WHEN NEG, MEANS ERASE LAST PATTERN 
sDRAWN WITH WHAT WAS THERE, B4 PROCEEDING ANEW. 

1F31 20 LBUSX: DB $00 sLAST DISPLAYED BUSEX, BUSEY 

1F32 00 LBUSY: DB $00 

1F33 9002 LBASX: DW $00 ‘LAST DISPLAYED CSTRTX, CSTRTY 

iF35 9000 LBASY: DW $00 

1F37 00 LNUMPT: DB $00 sLAST DISPAYED NUMPTS 

1F38 00 LSNMPT: DB $00 *LAST DISPLAYED SNMPTS 

1F39 00 LASTSX: DB $00 sLAST X STARTING POSITION USED BY MNITOR ROUTINE 

1F2A 00 LASTSY: DB $00 sLAST Y wes | 

iF3B 00 TEMPX: DB $00 

1F3C 00 TEMPY: DB $00 +X & Y FOR TEMPORARY SUBROUTINE USE (LSTERA) 

iF2D 08 TMPNUM DB $0 ;TEMP INDEX 

1F3E 00 XCHARI: DB $20 eXCHARI & XCHAR2 ARE USED TO HOLD ASCII 

iF2F 00 XCHAR2: DB $00 ‘FOR EXTERNAL CALLS. 
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1F48 98 CHRHIT: DB $88 sHOLDS CHAR HIT FOR CALLER'S BENEFIT 
1F41 88 HCOLOR DB $@@ ;CURRNT COLOR 
iF4e 88 HCOLRe: DB $02 ;CURRENT COLOR ROTATED FOR ODD BYTES 
1F43 88 PAGE: DB $@@ ;CURRENT GRAPICS PAGE IN USE 
iF44 88 USEX DB $0@ ;X DISP BEING USED 
1F45 88 USEY DB $08 ;Y DISP BEING USED 
1F46 08 BUSEX: DB $08 sVECTOR TO BE APPLIED TO BRUSH IF NOT IN 
1F47 88 BUSEY: DB $29 sIN LOCATE MODE. 
iF48 = 8884 PADFUL: DS a 31-255 RANGE FOR PDLS 1-4. 
iF4C = 8004 PADI8B: DS 4 31-8 RANGE FOR PDLS 1-4. 
iF58 = 6804 PADVEC: DS - 3-4 TO +4 RANGE FOR PDLS 1-4. 
1F54 8 CUMODE DB $08 ;CURRENT MODE (LIKE P REGISTER) 
: :-1 = MONITOR, @ = MASTER 
1F35 «(88 HUDMDE: DB $09 sHOLD CURRENT MODE 
iF56 81 MXMODE: DB $1 :@ = GRAPHICS ONLY (FOR MOVIES) 1 = TEXT & GR 
iF57 8 TPTR DB $88 ;PTR TO A DISP OF CURRENT TARGET 
iF58 8 SPTR DB $@@ =;PTR TO A DISP OF CURRENT SOURCE 
1F59 688 CURTRG: DB $03 ‘CURRENT TARGET (INTERNAL) 
31-8 = PATTERN 1-8 
iFSA 88 CTARG: DB $08 sCURRENT TARGET (DISPLAY) 
oF]? - 56) 
1FSB 88 CURSRC: DB $88 ;CURRENT SOURCE (INTERNAL) 
; @ = PDLS 1 &2, 1-8 = PATTERN 1-8. 
FSC 88 CSOURC: DB $08 sCURRENT SOURCE (DISPLAY) 
s 1pr fi) — 9g 
1F5D 7F CSTRTX DB $7F ;CURRENT STARTING X 
iFSE SF CSTRTY DB $3F ;CURRENT STARTING Y 
IFSF 6&8 CCOUNT: DB $00 3A DUMMY LOCATION THAT IS INCREMENTED AND 
sAND-ED OFF TO GET WHICH OF PADDLES (@-3) TO SA 
1F6@ 88 CURCNT: DB $@@ ;REFRESH FOR COUNTER 
iF61 @ HCOUNT: DB $@@ ;CURRENT COUNTER FOR TIMING (= SPEED) 
1F62 88 CSPEED: DB $80 sCURRENT SPEED (DISPLAY) 
375° = SINGLE STEP, '1’ - *8! 
1F63 88 SAMFLE: DB $00 sSTROKE SIZING MODE (INTERNAL) 
*-{ = NORMAL, 1-4 = PDL 1-4. 
1F64 88 DSSFLG: DB $02 sSTOKE SIZING MODE (DISPLAY) 
INT, 319 - 94) 
1F65 88 TAMFLE: DB $09 sBRUSH SIZING MODE (INTERNAL) 
3-1 = NORMAL, 1-4 = PDL 1-4. 
1F66 8 DSTFLG: DB $00 ;BRUSH SIZING MODE (DISPLAY) 
swNY, YA! - 34! 
1F67 88 FRZFLG DB $@@ ;FREEZE FLAG 
1F6B 88 DRWFLG DB $@@ ;DRAW ENABLE 
1F69 88 MEFLAG DB $08 ;MOVE OR ENTER MODE FLAG 
iF6A @i INIFLG: DB $01 sINIT FLAG (@=INITIALIZED) 
iF6B 88 LOCFL6: DB $00 sLOCATE MODE FLAG (INTERNAL & DISPLAY) 
iF6C 88 CURLOC: DB $88 sLOCATION DEVICE (INTERNAL ONLY) 
s-1 = KB, @ = PADDLES 1 é2 
iF6D 88 VISFL6: DB $08 sVISUALIZE MODE FLAG (INTERNAL & DISPLAY) 
iF6E 88 PNTFLG: DB $00 sPAINT MODE FLAG (INTERNAL & DISPLAY) 
iF6F 88 BRSFLG: DEB $06 sBRUSH MODE FLAG (INTERNAL & DISPLAY) 
iF78 8B QSTFLG: DB $29 sQUICK STROKE MODE (INTERNAL & DISPLAY) 
iF7i @ WRPFLG: DB $08 ;WRAP-AROUND ON/OFF (INTERNAL & DISPLAY) 
1F72 8 XNEG: DB $80 ;NEGATE SOURCE X VECTOR FLAG 
1F73 98 YNEG: DB $00 


se eee, ee” 





SURCIM 65@x Assembler ver 3.@ 22/72/72 27:27 Pane 48 


/usr/eric/cfm/PP16 PAINTER POWER 16 11/13/83 19:07:35 PPig «=. ASM 
1F74 00 XCRUISE DB $@@ ;LOCK CURRENT X FLAG 
1F75 00 YCRUISE DB $@@ ;LOCK CURRENT Y FLAG 
1F76 00 COLFLG: DB $00 sCOLOR SELECTION MODE (INTERNAL) 
*@ = KB, 1-4 = PDL 1-4 
1-77 20 DSCLF6: DBs‘: sCOLOR SELECTION MODE (DISPLAY) 
eVKI, 14 - 94! 
iF78 00 CCOLOR: DB s«$00 sCURRENT COLOR BEING DRAWN WITH (INTERNAL). 
iF79 00 CLRHLD: DBs $80 sTEMP STORAGE FOR CURRENT COLOR (1-8) 
iF7A 00 BCOLOR: DB «$00 sCURRENT COLOR SETTING (INTERNAL) 
iF7B @@ DSCOLR: DB ts«$80 sCURRENT COLOR SETTING (DISPLAY) 
{F7C 00 BKCOLR: DB «$00 sBACKGROUND COLOR (1-8) 
iF7D 20 DSBKND: DB $00 sBACKGROUND COLOR (DISPLAY) 
1F7E 00 TEMP: DB $00 sTEMP STORAGE 
1F7F 00 CHGFLG: DB $00 sFLAG USED TO INDICATE IF ANY CHANGE WAS 
sINSTITUTED SINCE LAST TIME SOMETHING WAS 
sDISPLAYED THAT WOULD GIVE US REASON TO 
sERASE THIS LAST THING AND REDISPLAY, 
:@ = NO CHANGE, 1 = CHANGE. 
iFa0 00 HITTYP: DB $00 ‘HIT TYPE: (1 = KB, @ = EXTERNAL) 
iFai 00 HITFLG: DB $00 :@ RESPOND NORMALLY TO KB HITS 
s1 RETURN TO CALLER W/CHARACTER IN TMPNUM 
*—1 IGNORE ALL KB HITS 
iFB2 00 TXTFLG: DB $00 s@ USE TEXT AREA FOR HELP SCREEN &CONTROLS 
s1 DO NOT WRITE IN TEXT AREA 
; s-1 WRITE IN ONLY 1ST TWO LINES OF CTL DISPLAY 
iFa3 20 CTXFLG: DB $00 sTRACKS STATUS OF 4 LINE CTL DISPLAY 
*@ ALL 4 LINES ARE OK 
'1 NONE OF THE 4 LINES ARE OK 
:-1 TOP 2 OF 4 LINES ARE OK 
1Fe4 00 KBFRCH: DB s#$Q0 s1 - TURN FREEZE ON AFTER ONE CYCLE FLAG 
iFa5 0 QSTXEQ: DB $00 s1 - EXECUTING QUICK STROKE; @ - NOTHING 
1FA6 00 STKFLG: DB «$00 s1 - UPDATE STROKE BUFFER W/CURRENT VECTOR 
iF87 20 OPTR: DB $08 ‘POINTER TO SOURCE PATTERN 
iFaa 00 ONMPTS: DB $00 s# OF POINTS IN SOURCE PATTERN (INHERENT SIZE) 
iFB9 00 ORGFLG: DB «$00 ;1 - TELLS LOOP ROUTINES THAT USER WANTS TO 
; RETURN TO ENTER OR MOVE ORIGIN. 
iFBA a0 ORIGX: DB $00 sTHE VECTOR THAT WILL GET US BACK TO THE ORIGIN 
1FBB 00 ORIGY: DB $00 
{FAC 7F PORGX: DB 127 sTHE LAST SCREEN LOCATION ORIGIN 
IFAD 48 PORGY: DB  —-_ 
iFBE 00 EORSX: DB $00 sTHE VECTOR THAT WILL GET US BACK TO THE 
{FOF 00 EORGY: DB $00 sORIGIN IN THE PATTERN BEING ENTERED. 
1F90 08 SPDHLD: DB s«$:Q0 sHOLD SPEED SETTING WHILE EXECUTING QUICK STROK 
iF91 00 TBSPTR: DB $00 sBASE POINTER TO LEFT SIDE OF TARGET. 
1F92 00 BSPTR: DB $00 sBASE POINTER TO LEFT SIDE OF STROKE BUFFER. 
1F93 00 PNMFLG: DB $00 sPAINT MODE 
1F94 08 PNMIND: DB «$00 ‘THE ACTUAL PAINTING MODE 
1F95 00 LOCHLD: DB $20 sREMEMBER LOCATE MODE STATUS 
1F96 00 VISHLD: DB $00 sREMEMBER VISUALIZE MODE STATUS 
1F97 00 WRPHLD: DB $00 sREMEMBER WRAPAROUND STATUS 
1F98 08 WRPIND: DB $00 sWRAPAROUND FLAG (- = OFF, + = ON) 
1F99 90ed SCSTRX: DW $00 ‘SCREEN LOCATION: 1@ BITS 
{FOB 900d SCSTRY: DW $00 
iF9D gage SDSTRX: DW «$00 sSCREEN LOCATION FOR DRAWIT ROUTINE 
1FOF 9000 SDSTRY: DW $08 
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iFAL 8 PTCNT: DB $08 sCOUNT OF POINTS WITHIN SCREEN BOUNDS 
iFA2 88 OFFLAG: DB $08 ;OFF SCREEN FLAG. 


IFAS 


iFA4 
LFA 
iFAG 


1FA7 
IFAS 
iFAB 
IFAD 
LFAF 
IFBi 
iFBS 
1FBS 
iFB? 


iFBS 


9876 


ay 


4: 


LOCX: DB 
LOCY: DB 
DRWHLD: DB 


3 
PATTS: 
APATTS: 


EQU 

DW 

DW 

DW 

DW PATTS+$680 
DW 

DW 

DW 

DW 

Dw 


;@ = WE'RE OFF THE SCREEN, PLOT ALL POINTS BUT 
COUNT ONLY THOSE WITHIN SCREEN BOUNDS. 

1 = ON (OR JUST OFF) SCREEN, PLOT ONLY THOSE 
POINTS WITHIN SCREEN BOUNDS. 

;USED TO OR IN INVERSE VIDEO BIT FOR 

;SCREEN LOCATION DISPLAY. 

sHOLD REGISTERS FOR PREVIOUS LOCATE VECTOR 


sHOLD BRUSH UP/DOWN STATUS. 


PATTS+$480 


PATTS+$800 
PATTS+$A@ 
PATTS+$C80 
PATTS+$E89 
PATTS+$1980 


EXTTBL: EQU PATTS+$1208 sBEGINNING OF TABLE TO SUPPORT 


sMULTIPLE KB HIT CALLS FROM OUTSIDE 


ee GN CORE ES ED EEE SED SEES GD SED ES EES SP INS SEE LOSS GT AD GANS NS ES IE AOS SENS SIRE CNY A SS GNSS CES NS EN SS SS ND 


ORG $6000 
YTABi: EGU #) 
ORG #0+128 
YTABi - CONTAINS HIGH ORDER BYTE OF ROW ADDRESS FOR Y VALUES @-127. 


2a “We we ho ta 28 we RE ee EO le OO le EE le OE lee 


@2e we ee 


TABLE IS OFFSET BY 16 FOR THE CHS@ *FRAME’ EFFECT. CHEAP. 


THE FOLLOWING EXPRESSION IS BASICALLY REPEATED 128 TIMES 


YCOOR: SET 16 + 127 - (#0-YTABI) 
YF8: SET YCOOR AND $F8 
DB HIGH($2000+ (YFR/64) #$28+ (YFS) #$10-(YF8/64)#1024+(YCOOR AND $07)#$ 


NE ES ET TS ET OE SS TE ES eS ES SS SS ST TS oS SS SS SS SS Se SS A SRS a ED 


ABe: EGU #0 


ORG #0+128 


YTABe 


YCOOR: 
YF8: 


- CONTAINS LOW ORDER BYTE OF ROW ADDRESS FOR Y VALUES @-ic7. 
THE FOLLOWING EXPRESSION IS BASICALLY REPEATED 128 TIMES 
SET 16 + 127 - (#0-YTABe2) 


SET YCOOR AND $F8 
DB LOW( (YF8/64) #$28+ (YFB) #$10-(YFB/64)#1024+ (YCOOR AND $07)#$409) 
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; 
= 6188 XTAB1: EQU #0 
6188 = ORG #0+256 


XTABL - CONTAINS OFFSET TO SCREEN BYTE ON CURRENT ROW FOR X VALUES 
; @-205. IT 15 OFFSET BY DECIMAL 11 FOR SCREEN EFFECT. 


THE FOLLOWING EXPRESSION IS REPEATED 256 TIMES 
DB ( #0 - XTABL + 11)/7 


3 
j 
XTABe: EQU #0 


= 6200 

6200 = 6300 ORS #0+256 
$ 
;  XTAB2 - CONTAINS APPROPRIATE BIT MASK FOR X VALUES @-255. ALL BYTES HAVE 
THE COLOR FAMILY BIT SET SO THAT THE AFFECTED BYTE IN CORE WILL 
:; HAVE ITS COLOR FAMILY CHANGED IF ONE OF ITS BITS IS CHANGED. 
3 
: THE FOLLOWING EXPRESSION IS REPEATED 256 TIMES 
¥ 
; DB $82 + 1 SHL ( ( #0 - XTAB2 + 11) MOD 7) 
Dee 
3 

6200 = ORG $FFO@ AND (#0+$FF) 
3 

= JMPTBL: EQU = #0 

5 

6300 S7OF DW NONFUN 

6302 570F DW NONFUN 

6304 570F DW NONFUN 

6306 6Fi4 DW CTRLC © sCTRL-C ==) FUNCTIONS LIKE RETURN 

6308 S70F DW NONFUN 

6308 S7OF DW NONFUN 

6300 S7OF DW NONFUN 

630E BCL DW KBLEFT  ;CTRL-G 

6310 BAi5 DH - LARROW =: CTRL-H_ (BACK-ARROW) 

6312 570F DW NONFUN 

6314 C311 DW KBRGHT  ;CTRL-J 

6316 570F DW NONFUN 

6318 4F14 DW LNGEXT 

631A DA@C DW  COMAND =; (CR), RETURN TO COMMAND MODE 

6310 Dilt DW KBDWN -sCTRL-N 

631E FAL3 DW TREALL 

6320 S7OF DW NONFUN 

6322 S70F DW NONFUN ;CTRL-O 

6324 BF10 DW PNPNOF © sCTRL-R 

6326 9364 DW CPYTXT  sCTRL-S 

6328 AGE4 DW =sCPYTXF =~ sCTRL-T 

632A 1915 DW RARROW :CTRL-U (FORWARD-ARROW) 





SS ee NL ee 


0Di8 
0013 
e113 
CALI 
S716 
DAGC 
9813 
OBGF 
BROF 
07 OF 
BCi8 
@AI6 
@AI6 
BAI6 
BAI 
@A16 
O7@F 
37 OF 
37 OF 
6516 
4314 
@Di5 
9512 
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PPiG = s«w ASM 

DW CHBEND s;CTRL-V 
DW SRCMDE 
Di TROMDE = ;CTRL-X 
DW KBUP sCTRL-Y 
DW MOVROW =sCTRL-Z 
DW COMAND ; ESCAPE 
DW SRCALL 
DW COLMDE 
DW COLTAB = ;-38 
DW NONFUN 
DW FREEZE ; SPACE 
DW PNMHIT 3! 
DW PNMHIT 86; " 
Dw PNMHIT 3; # 
DW PNMHIT 3 $ 
DW PNMHIT ¢; % 
DW NONFUN 
DW NONFUN 
DW NONFUN 
DW SETOWK «=; ) 
DW CLRCTR ; # 
DW QWIKI2 3 + 
DW NEGX 4 
DW COPYBK ; - ==) COPY HIRES SCREEN 2 TO SCREEN 1 
DW NEGY Es 
DW PDREST 3; / 
DW PGORGE ; 2 
DW COLCHG «86; 1 
DW COLCHG 2 
DW COLCHE «8063 3 
DW COLCHG 3 4 
Dw COLCHG ad 
DW COLCHG 3 6 
DW COLCHE ;7 
DY COLCHG 4; 8 
DW PSORGE =; 9 
Di COPYTO ; : ==) COPY HIRES SCREEN 1 TO SCREEN 2 
DW GWIKIE . 3 
DW NONFUN =; { 
DW NONFUN 
DW NONFUN ;) 
DW NONFUN =; ? 
DW NONFUN ; @ 

NONFUN 


oe 2 eo 


LOCHIT 


me we “SO wee HE ae OO le 


mre oe CAMs 


me we oR ue 
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639A 4618 DW SWMODE ; M 

6390 Dill DW KBDWN ; N 

639E ADL4 DW EGORGE ; 0 

63A@ ASI DW PNTHIT ; P 

63A2 @ELi DW QSTHIT : O 

6304 F3QF DW RABBIT ok 

6306 FFOF DW SNAIL , § 

6308 FOF DW TURTLE 7 

63AA 7618 DW DRAWON so 

63AC CDia Dw VERHIT 7 V 

63AE E518 DW WRPEHIT . W 

6388 7Fi2 DW HOLDY -. 

63B2 CALI DW KBUP ay 

6384 6912 DW HOLDX :Z 

6386 5S7OF DW NONFUN =; SO ( 

6388 S7@F DW NONFUN ; BCK / 

63BA 57OF DW NONFUN ; SQ) 

6380 57OF DW NONFUN ; * 

63BE S/7OF DW NONFUN 3 ( 

6308 57@F DW NONFUN ;' 

6302 = ORG $FF@@ AND (#0+$FF) 
; 
3 
- CCPYBK & CCPYTO - COPY FROM & TO HIRES PAGE 2: EXTERNAL CALL 
: INDEPENDENT OF PP. 
Ba nnn 
3 

6408 2@5B64 CCPYBK: JSR SAVREG 

6483 201464 JSR COPYBK 

6406 206064 JSR RSTREG 

6489 68 RTS 
3 

649A 205864 CCPYTO: JSR SAVREG 

640D 283864 JSR COPYTO 

6418 206D64 JSR RSTREG 

6413 68 RTS 
3 
: COPYBK & COPYTO - COPY FROM & TO HIRES PAGE 2 
. aT et RTE IR Te A A ee Ie 
§ 

6414 286EiC COPYBK: JSR LSTERA 

6417 A928 LDA #$28 

6419 8563 STA TO+1 

641B A948 LDA #$48 

641D 8561 STA FROM+1 

641F AGae LDY #$2 

6421 6462 STY TO 

6423 8468 STY FROM 

6425 6168 COPYBL: LDA [FROM], Y 

6427 9162 STA (T01,¥ 

6429 (8 INY 

642A DOFO “6425 BNE COPYBL 

6420 E661 INC FROM+1 

642E E663 INC TO+i 

6438 AS6i LDA FROM+1 
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6432 C968 CMP #568 ;REACHED END OF GRAPHICS PAGE YET? 
6434 DEF “6425 BNE COPYBL 
6436 68 RTS 
3 
6437 AD DB $AD ;==FLAK 
| 
6438 2@6EiC COPYTO: JSR LSTERA 
643B AI2B LDA #$28 
643D 8561 STA FROM+1 
643F AI4B LDA #940 
6441 8563 STA TO+1 
6443 AGO2 LDY #49 
6445 8462 STY TO 
6447 8468 STY FROM 
6449 Bib COPYTL: LDA [FROM], Y 
6448 9162 STA (T01,Y 
644) (8 INY 
644E DOFI “6449 BNE COPYTL 
6458 E661 INC FROM+1 
6452 E663 INC TO+1 
6454 A563 LDA TO+i 
6456 C968 CMP #568 ;REACHED END OF GRAPHICS PAGE YET? 
6458 D@EF “6449 BNE COPYTL 
645A 68 RTS 


SAVREG & RSTREG - SAVE/RESTORE ZERO PAGE LOCATIONS. 


86 we SG we ee 


645B c@4AFF SAVREG: JSR IOSAVE ;SAVE 6502 REGISTERS 
645E A218 LDX #$18 
6460 AG2 LDY #90 
6462 BIb98 SAVLOP: LDA FROM, Y 
6465 996883 STA REGS, Y 
6468 Cé INY 
6469 CA DEX 
6468 DOFE “6462 BNE SAVLOP 
b46C 68 RTS 
| 
646D AciB RSTREG: LDX #$18 
B46F AGB LDY #50 
6471 BIEBGS RSTLOP: LDA REGS, Y 
6474 996800 STA FROM, Y 
6477 C8 INY 
6478 CA DEX 
6479 DOF6 “6471 BNE RSTLOP 
647B 2O3FFF JSR IOREST ;RESTORE 6502 REGISTERS 
B47E 68 RTS 


CCPTXT & CCPTXF - COPY TEXT TO AND FROM TEXT PAGE 2. THESE ARE CALLED 
EXTERNALLY, INDEPENDENT OF PAINTER POWER. 


OE mee es es aa ee cme ts a Se a ESE isn mn aT OE CR OR SO TOR ES NOR EY RE Ne Coe Oe Ca MG RMN atoms ter mR 


647F 205864 CCETKT: JSR SAVREG 
6482 209B64 JSR CPYTOK 
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6485 206064 JSR RSTREG 

6488 68 RTS 
3 

6489 205864 CCPTXF: JSR SAVREG 

648C 2GABG4 JSR CPYFOK 

648F 206D64 JSR RSTREG 

6492 68 RTS 
# 
; CPYTXT & CPYTXF - COPY TEXT TO AND FROM TEXT PAGE 2. 
Ba 
$ 

6493 ADBGIF CPYTXT: LDA HITTYP 

6496 F883 “6498 BEG CPYTOK 

6498 4(0064 JMP SOUND 

6498 AIB4 CPYTOK: LDA ae sCOPY TEXT PAGE 1 ==) TEXT PAGE 2 

649) 8561 STA FROM+1 

649F ASB LDA #8 

64Ai 8563 STA TO+1 

6403 4CB364 JMP DOCPY 
? 

6496 ADB@IF CPYTXF: LDA HITTYP 

6489 DOED “6498 BNE CPYTXT+5 

64AB AIS CPYFOK: LDA #8 ;COPY TEXT PAGE 2 ==) TEXT PAGE 1 

64AD 8561 STA FROM+1 

64AF A984 LDA a 

64Bi 8563 STA TO+1 

6483 A984 DOCPY: LDA Be 

6485 &8DCF64 STA TMPCPY 

6488 AgaO LDY #8 

64BA 8468 oTy FROM 

64BC 8462 STY TO 

G4BE Biba CPYTXL: LDA CFROM], Y 

6400 9162 STA [T01,Y 

64C2 Ca INY 

6403 DOF9 “64BE BNE CPYTXL 

6405 E661 INC FROM+1 

64C7 E663 INC TO+i 

6409 CECF64 DEC THPCPY 

64(C DFO “64BE BNE CPYTXL 

64CE 69 RTS 
3 

64CF 88 THPCPY: DB 8 ;KEEP THIS SEPARATE FROM PP REGISTERS. 
3 
3 
; SOUND - BELCH AT THE USER: THEY HIT A BAD CHARACTER. 
irene aaa 
3 

6408 AG1@ SOUND: LDY #912 

64D2 A248 LDX #948 

64D4 206564 JSR SOUNDZ 

64D7 68 RTS 


2 
3 
8 

3 
8 
$ 


; SOUND2 - VISUALIZE KB PRESS WITH A TICK. 


64E7 
64EB 
64F 1 


64Fe 
64F4 


AIZ8 
CBABFC 


A2@D 


e@RBFC 


2@ABFT 
AD3OC8 


D@F6 “64EA 
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- 


JSR 
LDY 
LDX 
JSR 
RTS 


8 ee eR me 





22/99/97 99599 
PP16 


Page 35 


#938 ;DELAY A LOT SO THAT NOISE OF KEY PRESS IS 
ADELAY ;MOSTLY OVER BEFORE TICK SOUNDS. 

#$25 

#380 

SOUNDZ 


SOUNDZ - GENERAL SOUNDER: X = FREQ, Y = DURATION 





no ERRORs, 





6508 


ACLOOK 1F18 
ADDVEC @E41 
ADELAY FCAB 
ADVNM1 1694 
ADVNMe 1685 
ADVNOC 16CF 
APATTS iFA7 


APLEXT 18C8 
APLNL2 1874 
APLNLO 18A8 
APLNP1 1835 
APLNPe 1844 
APLNPD 18i1F 
APLNGS 1885 
APLNVI 1860 
APLOC 1806 
APLOK1 1816 
APLOKe 182F 
APLXON 18B8 
ARBUZZ 1587 
ARCHEK 159 


SOUNDZ: LDA #940 
JSR ADELAY 
SNDZLP: TXA ;GET FREQUENCY 
JSR ADELAY 
LDA SPEAK 
DEY 
BNE SNDZLP 
RTS 
b 
ORG $FFO@ AND (#0+$FF) 


5 
LSTBYT: EQU #0) sAREA TO STORE HIRES SCREEN BYTES TO BE RESTORE 


; 
ENDCH: END 


527 Labels, 7B4@h bytes not used. Program LWA = 658@h. 


7437 


So/ 4 35/14 35/16 


21/45 21/48 22/33 22/36 30/41 


33/33 


33/36 33/42 33848 


33#18 


eo/4e =2oH55) «6286/86/23 26/34 
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BASDEX iBB2 = 38/5 = SB/ BO ORBRS? 
BASDF iB3e e9/19 37/51 37/54 38/2 3heG 
BASDSP iBie 6/45 29/ 3 37849 
BASH 8029 14350 (27/43 
BASL 6028 1#34 «27/41 27/58 
BASXIN 1B4Q 8638/12 «= 38/14 «= S16 
BASYIN 1871 38/27 38/29 38831 
BASYOT 1B6A 38/25 48=— 3B #28 
BBASEX 8874 1#53 21/33) 23/18 = 26/18 = eB/ 9 8/42 38/45 
S4/il S/se 35/43 55/47 
BBASEY 0076 1454 25/14 e6/i2 28/13 30/43 38/47) = S4/13 
35/34 35/49 35/53 
BCOLOR 1F7A = «18/110 10/18 «= 16/ 6 9429/45 «=4BR Y 
n BEGIN 8C@@ CH35 
BACOLR iF70 = 1/42) = 12/18) 2/15) 4B RII 
BKLOOP 1086 4=—s 43#49 43/35 44/ 4 
BLITZ @FED i1#23 24/29 Si/45 
n BRSFLG 1F6F 0 47#51 
BSPTR 1F92 2/38 «14/42 24/35 23/3 25/6 46/5 6/9 
6/16 32/38 32/46 33/4 35/48 35/45 35/51 
36/2 38/44 48845 
BUSEX 1F46 i7/i2 18/95 18/56 33/48 35/4 35/8 35/26 
30/310 37/34 S7/4e ATR 7 
BUSEY 1F47 17/13 19/33 19/34 33/47 33/7 SM 35/27 
35/33 37/33 37/41 ATR 8 
CBASEX 8878 1#51 0 35/46 «(35/48 36/14) «= 36/16 = 41/44 43/17 
CBASEY 8872 1#52 0 35/52 «= 35/54 «= 86/28 = S6/ee 41/39 43/6 
CCOLOR 1-78 = 18/24 9= 4B 7 
CCOUNT 1FSF 6/25 6/26 47%#28 
n COPTXF 6489 S48 4 
mn COPTXT 647F 33454 
n CCPYBK 6480  S2#eé 
n COPYTG 640A 8 Se#33 
COPNOF @FBB 18/17 1838 
CHBEND 18@D 3/23 11%52 8638/56 
CHBMAS 1042 12/19 i2#ee 
CHBOK 1@15 11/53 11855 
CHGFLG 1F7F 6/37 3806/44 = B/D4 «= eB/4e 6/7 86/88 41/51 
48414 
CHRHIT 1F48 0/48 3/58 | 46856 
CLROTR 1443 89622848 51/21 
n CLRHLD 1-79 89 48% 6 
CLROLD 1@@5 8 8611%42 851/46 
CNTOVR @DDA 6/36 6848 
COLCHe @F99 ss 10#23 = 12/16 = 15/29) 15/34) 16/7 
COLCHG @F79 3/2) 18# 5 (51/28 51/29) 31/88/31 1/32 
91/33 51/34 51/35 
COLCKB @F82 0s 18/6 }3=18H18 §=632/48 
COLFLG iF76 9/51 9/54 «18/5 32/43 ABR 
COLMDE FSB 3/28 = =—-H4S 51/8 
COLMNK @F73 9/49 HBSS 
COLMOK @F63 9/44 S46 
COLORS 1F@8 8 10/26 46815 
COLTAB @FBA &/ 7 = i@#45) «(51/9 
COLTOK @FC2 18/46 10848 
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COMAND @CDA A#?1 623/18 6/47 51/6 

COPYBK 6414 15/53 31/24 ‘Se/29 devil 

COPYBL 6425 Se#49 Se/Se 33/2 

COPYTL 6449 S3¥iS 93/18 33/23 

COPYTO 6438 15/27 Si/37) | Se/34 SSa7 

COUT! FDF@ #28 37/4 =S7/17 

CPAGE! 8864 1#44 31/15 31/32 «31/36 = 39/49) 39/55 48/39 
4Q/Si 41/7 

CPAGE2 866 1#45 31/24 9831/34 = 31/37 

CPYFOK 64QB 54/5 34823 

CPYTOK 6498 53/55 34/13 S4#15 

CPYTXF 6496 50/54 S4étei 

CPYTXL 64BE 489 544320 54/35 94/39 

CPYTXT 6493 S@/53 34#1l2 34/22 

CSOURC IFSC 3/29 21/6 4724 

CSPEED iF62 9/8 11/5 24/27 47832 

CSTRTX iFSD 2/52 e3/4i e4/11 28/58 47826 

CSTRTY 1FSE 2/35 23/43 «24/14 2B/37 = AT#e27 

CTARG FSA 3/27 ee/i2 = 47#28 

CTRLC i46F 23817 30/37 

CTXFLG 1F83 0s 23/11 09= 36/41 4B 

CUMODE 1F54 2/46 8/41 «18/16 $=l2/i2 is/ee = 14/eb = 15/25 
15/32 «15/58 = 15/55) e7/16 4 7#l2 

CURCNT 1F68 6/48 li/l2 47838 

CURLOC 1F6C)08=—s «16/41 «17/53 18/48) = 19/18) 9= 33/28 47847 

CURPTS 1F2F 46 «36/ 3) 36/26 = 42/18 «43/2 «43/35 | 464 

CURSET FCe2 1433 27/48) 27/47 6/55 37/13 

CURSRE 1F5B 489s 18/49. 19/27) 8/36/18 eve R/S 83/5 
34/31 3/24 47#22 

CURSRX 8824 #25 «27/39 «36/52 = 37/18 

CURSRY 8825 1#26 «627/37 «627/46 36/54 S7/Ie 

CURTRG 1759 = 22/29) B/S 4 7#18 

DIWRNG i7BB 0s 31/130 31817) = Si /ee 

DCBYTE 1Ci1C 8=—§«sB/2i | 3B/36 B/S2 39/13) 39/27 )=— 39/34 = 4B He 

DCLOOK 1F18 = =618/5e 932/47 «= 44 

DCNCC1 1038 48/32 48835 

DCNDIG 1C6C «= 48/24 = 418 9 

DCOUT1 1C3E 648/34 40837 

DCOUT2 1054 48/46 40849 

DCOUT3 168 41/3 41%6 

DCSUB1 1030 40838 40/36 

DCSUB2 1C4B 46 484444 = 48/48 

DCSUB3 iCSF = 48#56 41/5 

DECRi DFE /4& 7#9 

DECRe E01 7/2 = 7#18 

DECR3 @EO4 6/35 7#il 

DERAPH C85 1#19 

DHIRES CO57 1#18 

DLOOP iCF4 428433 43/27 

DOBAND 1@1F 11/43 ie/ 2 1289 

DOCPY 6483 34/19 S427 

DOFLG1 i6€1 29/15 29818 

DOFLG2 17@E 8629/14 «39-2936 

DOFLGS 16D3 4/15 29#i1 38/26 

DOFNNN 16—@ 29/13 23816 


s 3S 
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DOFTP2 16DD = 9/12 «= SRS 
DOINI @CO7 e/37 = kad 
DONDRW 1D63 40s 42/28) = 43/ 3 48HeB 
DONER@ 1CBB = «41/18 = 41 #5e 
DONERA iCAD 641/36 «= 41#47 
DONERX 1CAE 41/28 41948 
DONEXT @D44 0/26 = ke 
DONXYP 1BEE  394#35 
DPAGE1 17AC) = «13/28 «13/44 «= 13/51) 14/9 «15/18 29/24 8623/27 
29/38 29/33 4 31#18 
DPABE2 17BA = «18/15 12/45 13/9 14/25 «14/58 = 18/12 18/28 
19/18 819/43 27/15 29/36 29/41 29/44 29/48 
e9/S1 23/04 =B/ A 8/5 O/B B11 NHR 
DRAWER @EC7 7/3300 7/42 T/A BRD 
DRAWIT 1CCA 6/42 8/48 42818 
DRAWNW 1867 3/48 12/38 = 12842 
DRAWON 1876 «= 1342 =Se/ 9 
DRWDO iDiB 42/43 «942/48 3942/51 = 42S 
DRWFLG iF68 8/49 13/2 13/ 7 eh/38 29/49 = 47R4S 
DRWHLD iFAB = 24/310 33/15 ASHI 
DRWNDO 1D13 42/46 = 42849 
DRWNM1 1036 «= 43/ 7 4389 
DRWNM2 1D4E 8 8=—6 43/18 3943828 
DRWNPL iD2i 4 496 42/58 = 42854 
DRWPAT 1083 = 4e/ 6 4=42/ 9 42848 
DSBAND 1F7D 8=«:«1'1/56 «= 48 #12 
DSCLFG 1F77 9/47 ABR S 
DSCOLR 1F7B 48=—s «18/13 «= 4818 
DSSFLG 1F64 e@/31 47#36 
DSTFLG 1F66 819/55 eB/ 2 47848 
DTRNOF 1888 3/47) 4/24 «13/3 1386 28/7 OSS/IT 
DTRNON 1@7B = 138 4 = 24/32 
DUPMDE 1882 4 «=613/5 1387 
EGORGE 14AD 23853 Se/ 3 
ELOOP 1€82 41%25 41/46 
ENDCH 6508 S526 
ENTCKL @E9C 8/15 = B#eB 
ENTER ®@E53 7/23 7/28 T/35 TAS 
ENTNAD £94 8/5 B86 
ENTNOK @E6A 7/48 7#5e 
EQRGX i1FBE 8/22 = B/2S5eB/310 28/552 /45 25/48 26/36 
26/39 48841 
EOR6Y iF8F 8/26 = B/29 eB/32 eA 2 OD/49 5/52 26/48 
26/43 48i4e 
ERSFLG iF 38 C/4i 6/48/52 4/17) 41/49) 43/34 4641 
ESORGE 147B 7/4 23H#eb 51/32 
n EXTCAL @D07 4#53 
EXTCL1 @D1i9 73 sé? S27 
EXTLOP @D34 o#23 05/31 
EXTTBL 7888 3/25 = 49425 
FIXX 1266 17/35 1887 
FIXY 12684 17/36 18#23 
FREEZE 1886 =: 13#18 = S1/il 
FROM 8069 1441 3/838 B/S /BT 3/48/41 3/42 
27/42 = 2T/4A AT/49 41/33 42/38 43/46 43/48 


= 


= 
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FRZFLG 1F67 


FRZON 1@91 
FTRNOF 1@9D 
FUPMDE 189F 
GETNNX 1936 
GETNNY 1948 
GETPAD 17D4 
GETPNZ 17DD 
GETVCX 1958 
GETVEC 18C9 
GETVEX 1958 
GMPi2 17CA 
GPAGE1 17C4 
GTVBYE 1964 
GTVDOK 18D6 
GTVESC 18D3 
GTVNFR 1914 
GTVNI 1934 
GTVNOR 1982 
GTVNGS 18EE 
HAVSUM 1CDe 
HBKGND 1D7E 
HCOLOR i1F41 
HCOLRe iF4e 
HCOUNT 1F61 


HGHCLR iDF6 
HITFL6 iF8i 
HITMIN 17F9 
HITTYP 1F8@ 


HLDMDE iF 55 
HOLDX 1269 
HOLDY 127F 
HPLOT iDAC 
HPOS = §iDGE 
INIFL6 iF6A 
INPLOK @C9@ 
INPLOP @C88 
INSCLCO 8818 
INSSEC 0038 
IOREST FF3F 
IOSAVE FF4A 
TZNLCK @EBC 
IZDKAY BE7A 
JMPIND @D9E 
JHPLO @D9F 
JMPTBL 6388 


43/38 
44/34 
45/7 
33/14 
34/38 
7/14 
47#42 
3/18 
13/23 
13/21 
34/46 
34/32 
6/28 
31/49 
3a/ 3 
6/38 
34/32 
3134 
3/2 
34/7 
34/ 6 
348 7 
34/27 
34/43 
34/18 
34/9 
42/19 
12/17 
16/29 
16/38 
4/28 
34/ 5 
14/18 
6/2 
32/18 
e/4e 
19/51 
38/49 
12/13 
18% 5 
18421 
42/33 
41/31 
2/36 
3/38 
3437 
42/ 8 
42/ 5 
1#31 
1438 
8/31 
7/38 
6/15 
6/13 
6/22 


43/33 
44/35 
Je/45 
33/15 
34/32 
13/18 


4/25 
13#25 
13426 
34851 


38/23 
34/16 
348 6 
34/25 
34/29 
S4#4S 
34%24 
SAH17 
42¢21 
13/38 
43/49 
18/34 
6/24 
47#31 
24/9 


Se#13 

o/ie 
20/27 
48819 
12/18 
ge/14 
Je/i2 


42/37 
4/14 
3#41 
3/44 

42813 

42#i2 

33/47 

03/38 


7/31 
6#21 


pe ied 


43/36 
44/38 
02/48 
33/19 
04/36 
13/26 


9/11 
17/17 


Ja# 6 


38/39 
34/23 


JAH31 


43845 
44/26 
10/36 

6/35 


cw 2 
3/41 
ei/e2 


a4/12 
A7#14 


44816 
23/28 


T/33 


44/2 
44/48 
oe/49 
03/33 
17/42 


13#28 


31431 
so#ie 


47% 2 
43/3e 
6/49 
45416 
3/36 


ee/ 8 
34/21 


47#45 


Bt 3 


44/17 
44/4} 
92/53 
03/43 


29/28 


23/ 6 


44/28 
11/14 


9/43 
22/36 


44/19 
44/48 
ge/35 
34/16 


34/26 


47% 3 
17/16 


18/45 
27/33 





PP16 
44/32 
45/2 
a3/ 9 
04/24 


34/42 


38/38 


11/Se 
e8/ 3 


22/72/77 22:77) Rage 39 


. ASH 





eoeoen—$; OO 
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/usr/eric/cfm/PPiG PAINTER POWER 16 11/13/83 19:87:35 PPi6 Ss. ASM 

KBDWN 1iDi 8 16#27 58/48 Se/ 2 

KBFRCH 1F84 2/44 9/3 9/4 & «OT/E4& § «617/26 §=17/45 4B HS 

KBLEFT 11BC) 8=—«« 16#15 «= 5/410 51/58 

KBLEXT 1231 817/15 = 17818 

KBLOCO 1226 = A7/1117#14 

KBNHLD 124F 8617/34 =: 17#37 

KBNOCX 11F8 16/45 16847 

KBNOCY 11FE «616/48 ~=—- 1658 

KBNOX i212 17/3 1786 

KBNOY 121B 17/7 17818 

KENTAD 1244 17/28 17833 

KBOK «8612099 «= «16/42 «16/53 «17# 2 

KBOK1 1208 16/51 16856 

KBREHT 1103 16819 50/44 51/53 

KBSTEX 1262 8617/41 17/43 = 17846 

KBSTIL 11D8 16831 51/51 

KBSTUP t2320 16/15) 16/19 16/23) 16/27) «16/311 7#24 

KBUP 110A = 16H23 «51/4 = S2/13 

KBVE33 11Fe 16/39 16#44 

KBVECH 11DB 4=s «16/17» «16/21 = 16/25) = 16/29): 16834 

LAREN 15CE 26/19 26833 

LARNVI 15AC 26/4 26818 

LARROW 158A 2643 58/42 

LASTSX 1F39 0s 41/22 43/29 46849 

LASTSY 1F3A 4 0=s- «41/23 43/32 «= 46858 

LBASX 1733 37/38 37/53 38/11 38/18 46845 

LBASY iF35 8 6937/56 «4938/4 38/24 38/33 46846 

LBUSX 1F3i 37/37 37/44 46843 

LBUSY iF32 37/35 37/43 46%44 

LFRZ@ @DBD 6437 0 7/15 

LKMODE 1996 8613/19 13422 

LNGEXT 144F 8 62e#56 8623/17 3958/46 

LNGGK 1457 23/2 23 4 

LNMPTS 1FeC) = 36/4 «= 36/27) 41/19 43/36 «= 46837 

LNUMPT 173700 39/2 «4939/6 39/8 46847 

LOCAOF 115B 8615/18 = 15#15 

LOCFLE iF6B 7/3100 7/32 BS A OB/AS 14/56 «8615/9 = «15/16 
16/38 =17/18 «17/33 «18/37 «19/15 24/24 = 29/25 
33/18 34/24 47846 

LOCHIT 1134 «614456 9651/55 

LOCHLD 1-95 = 24/25 33/9 = 48848 

LOCOFF 114A 3/32 15/2 1589 23/9 24/26 

LOCON 1139 15#3 33/11 

LOCUPD 115D §=615/ 8 «15416 

LOCX 1FA4 15/3 15/12 4989 

LOCY FAS 15/5 15/14 49818 

LOOP @8D49 4/4e 539/54 6/46 9/12 

LPFRZ @F@D 9/7 =i 

LPNKFR @F@6 974 38 

LPNQST @E2A Tes 7#27 

LPNTVI @ESC 7/36 734 

LPOK 86 ELI 6/31 7/13 = 7#16 

LONMPT 1F38 8638/41 «= 38/45 «38/47 46848 

LSTBYT 6500 41/26 42/56 55824 

LSTERA iC6E 4/2100 6/3904 5 7/46 8/39) 18/37 =: 118/53 





SORCIM 65@x Assembler ver 3.8 22/77/27 77:2? Page 61 
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te/ii 13/37) 14/18) 14/38) 14/44 15/24 = 15/49 
19/56 2i/ie 22/15 23/4 24/8 25/17 25/36 
26/15 26/38 26/53 28/6 35/29 41817 Se/4l 
wf 7 
MASTER 1195 12/14 1e/22 13/48 15849 
MAXPTS iFeA 7/49 = B/32-ss12/36 = PB/ & OPAL eB/ATSe/32 
46935 
n MECHEK E23 7#24 
MEFLAG 1F69 7/24 = 7/84 12/29) 12/43 O/B Oe3/2B 23/393 
en/2@ 26/18 38/6 47944 
n MLTCAL @DeC JHc8 
MONITR 1166 12/20 13/47 15fe4 
MOVLOP 165D 49s 27#49— 27/32 
MOVOK 163F 27/34  27%36 
MOVROW 1637 «2783300 51/5 
MOVSTT 168A 7/41 25/16 «925/35 26/14 = 26/29 CRY 
n MXMODE 1756 86 47#15 
NEGNUM 1C@2 = 39/46 49 3953 
NEGX 1295 18837 Si/23 
NEGXNL 1209 =: 18/38 =: 1B #47 
NESY 12DB iHHS 51/25 
NEGYNL 12EF 8619/16 39613425 
NGXKB 12BB 18/48 18/58 18853 
NGXOK i2f2 18/51 19% 3 
NGXPAD 12D? = «18/52 = 19#le 
NGYKB 12FE 19/26 19/28 iS#al 
NGYOK 1388 19/29 19%36 
NGYPAD 131D 19/38 19845 
NOACT @8D9D 6/3 6/10 6818 
NOCHG@ @DC5 6/38 6840 
NOCOP@ 1171 15/26 15%28 
NOFRZZ OF 18 9/18 8 8=6SHle 
NOHIT DAI 3/43 «5/454 
NONFUN @F57 9436 «50/34 «450/35 «58/36 | 50/38 = 98/39 98/48 
50/43 50/45 «(50/58 SO/51 31/18 = Si/17 = 51/18 
51/19 51/39 51/48) 51/41 1/42 1/43 51/44 
91/47 51/48 =51/49) 51/54 «=(Se2/15) (Se/i6 = Se/17 
se/18 Se/i9 Se/2d 
mn NOPERA 141A eet2l 
NOREM @E67 6/33 = 7#le 
NORREM @E1E T/i7,—_s 7/9 Tite 
NOSHFT 1DB6 49 44/27 «= 44829 
NOTMNG 11A@ 15/52 15854 
NOUNF 1807 13/24 13429 
NUMMSK 1FA3 37/48 38/16 38/31 38/58 39/11 39/48 39/34 
49/26 4987 
NUMPTS 1F2B 8/33. 12/39 «20/14 «e2/25) «eb/e2 |b /48 2/33 
36/23 38/35 39/ 3 4636 
NXFIX 1200 19/4 19/6 1987 
NYFIY i3f2 19/37 19/39 19848 
OFFLAG iFA2 8/47 8699/2 =3B/13 «= 38/28 «42/49 AH 
ONMPTS iF8B = 21/15 «34/37 = 4B 34 
OPTR 1FB7 14/48 21/17 34/33 34/48 34/44 «35/39 | 48833 
ORGFLG iFa9 W/i2 0 7/27 B/G AS 88/23 SA/IT BRS 
ORIGX iFBA 23/56 34/19 48837 
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/usy/eric/cfm/PPiG PAINTER POWER 16 11/13/83 19:87:35 


= 


ORIGY iF8B 
PADI8 = i1F4C 
PADFUL iF 48 
PADVEC iF 58 
PAGE 1F43 
PAINTI iDB9 
PAINTe iDC3 
PAINTS 1DCD 
PAINTS 1DDE 
PAINTS 1DEF 
PATTS 6682 


PDREST 1263 
PBORBE 14C4 
PNMEXT 1636 
PNMFLG 1F93 
PNMHIT 168A 


PNMIND 1F94 
PNMSET 1624 
PNPNOF 1@BF 
PNPNON 19B1 
PNTADS 1688 
PNTFLG 1F6E 
PNTHIT 1@A9 
PNTJMP iDB7 
PORGX iF8C 
PORGY iF8D 
PREAD FBIE 
PRIMPG C54 
PRSIGN 1BFe 
PSORGE 1499 
PTCNT FAL 
QSTFLG iF 78 
GSTHIT 118E 
QSTOFF 1129 
QSTUPD 112B 
QSTXEG 1F85 


QWIKI2 150D 
QWIKIE 14DD 
RABBIT @FF3 
RAREN 1565 
RARNLK 15F1 
RARNVI 153F 
RARROW 1519 
RCTRi 1F@e 
RCTRe iF @3 
RCTR3 1FQ4 
REENT CFE 
REGS  @3€8 
RELOOP @EEB 
RELOPY @DCD 
REMOTE 1FQ@ 
REMTMP 1F@1 


c4/ 3 
ge/ 3 
31/31 
32/16 
47% 4 
e7/ 4 
e7/ 5 
27/6 
27/7 
e7/ & 
49814 
49/21 
17#52 
C4t 8 
e7/i7 
15/56 
3/9 
31/16 
15/36 
13/37 
3/35 
13448 
c7# 4 
13/38 
13437 
27/25 
23/42 
23/44 
1#27 
1#15 
38/26 
CSt41 
8/36 
14/37 
14837 
3/49 
14/46 
2/45 
32/34 
C445 
P4821 
3/17 
2/21 
26/46 
eo/ 2 
24#56 
4/38 
4/31 
4/32 
4#49 
c# 4 
8/42 
6/41 
38/27 
4/27 


34/21 
32/45 
32/28 
33/26 


44/29 
44838 
4A$44 
4ARS3 
4# 7 
49/15 
49/22 
31/26 
32/56 
27#28 
e7/i3 
16/ 2 


e1iig 
27#20 
4/23 
ea/ 5 
27/24 
13/42 
se/ 4 
eve? 
24/18 
24/13 
31/47 


38/35 
24/48 
42/24 
14/48 
ve/ 5 
14/38 
14#48 
3/2 
33/ 3 
31/22 
24/45 


48438 
47#18 
32/37 
33/28 


4At3e 


49/16 
49/23 


31/27 


38/ 9 
C7#18 


27/28 


13/39 


27/26 
13/49 


44930 
48839 


39/26 
31/36 
42/Se 
29/36 


6/38 
34/ 8 


31/38 
ve/ 6 


Wy 
7/18 
T/il 


33/42 
8/46 


306/28 


47# 9 
33/39 


44/31 


49/17 
49/25 


ol/i2 


48847 


29/31 


39/33 


34/28 


T/ee 
4831 


46% 9 
46418 
46411 


8/48 


46% 7 


33/43 


45/3 


49/18 


o1/13 


00/32 


47858 


SHS 


47#52 


24/34 


8/38 





PP16 


47#il 


45/18 


49/19 


01/14 
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. ASM 


49/28 


o1/15 


24/47 932/49 


8#53 
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RSETL i77E 3/30 4/560 3/21/25 38K? 
RSETUP 1762 4/41 304#21 
RSTLOP 6471 S3#42 33/46 
RSTREG 646D 4/16 3/4 3/33 7/6 Se/38 Se/35 | (SSHAO 
03/36 8634/6 
RTSi =@FBS 818/33 = 18837 
SAMFLG 1F63 28/35) 8/49/18 21/38 e/35 47S 
SAVEX 1F28 16/34 17/4 46833 
SAVEY iF29 16/35 17/8 46834 
SAVLOP 6462 53433 «93/37 
SAVREG 6458 2/39 4/4 ASS O5/28) 52/28 2/33 33888 
53/34 S4/ 4 
SAWEC 1965 6/32 35819 
SB32(«17F@ 3H BO Se/Ie 
SBASEX @@6C 1#49. 20/39) 21/14 «6/46/49 28/ BB OB/18 
34/34 
SBASEY @O6E 1450 «21/47 «21/52 «6eB/i2 = 34/46 
SCSTRX 1F99 2/4B 862/53) «24/12 = 2B/4B8 2B/49)eB/Se | 2B/34 
37/49) 37/352 = SB/183B/17 4/25 AA/e7 AD /17 
48852 
SCSTRY 1F9B 2/47) = 2/56 «PAIS 28/34 2B/35 28/39 2B /41 
37/35 38/3 38/23 38/26 9 3A/3e 4e/e9)  4e/3l 
45/18 45/19 45/21 48853 
SDSTRX 1F9D 4«=«._ «42/26 42/28) «42/36 42/45 43/28) «43/21 43/23 
43/25 43/28 48854 
SDSTRY 1F9F 42/38 42/32 442/33 «(42/44 «(42/47 «43/9 43/18 
43/12 43/14 43/38 48#55 
n SECPG § (C@55 1#16 
SETBUZ 1495 23/27 23/29 23838 23/54 
SETNRM FEB4 1#32 © 36/39 
SETGLi 1672 2848 28/11 
SETBL2e 1679 eBti2 28/15 
SETQOK 166D 28/4 2846 
SETAWK 1665 2643 91/28 
SM97 06 @DBE 6/9 ~~ 6#11 
SMXPTS 1F2eD 46438 
SNAIL @FFF = 11%34 8 Se/ 7 
SNDZLP 64EA So#15 59/19 
SNMPTS 1F2E 496 28/48 28/45 ei/eW ei/34 bY 7 B/I19 Se/41 
3e/Se 35/36 «5/35 3B/39 38/42 4S 
SOUND 64D@ 9/36 «= 9/45 18/7) «(18/47) 11/54) «16/54 = 19/1 
19/45 19/53 20/29 21/4 22/18 23/3 23/38 
23/59 «27/35 «28/5 (54/14 = SABA 
SOUNDe 64D8 3/35 Soe 3 
SOUNDZ 645 23/35 23/47 S4/58 55/7 Salis 
SPDHLD 1798) 48=—s 24/28 §=033/12 = 4B 4S 
SPEAK C838 1#260 (5/17 
SPEEDS 1Fe@ = «11/11 = 46825 
SPTR 1758 14/41 24/36 «Se/Si 33/5 «(84/18 = SA/15 35/19 
35/38) 35/3/41 4T#I7 
SRCALK 13E1 21/31 21836 
SREALL 1398 = 21# ee Oi/ 7 
SRCAN@ 1304 8 =62i/19 = ei#ee 
SRCADK 1398 480 2/3 ele 5 
SRCAP 1305 21/8 elites 


= 
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SROMDE 125D 3/16 «2BH27 = Si/ 2 

SRCMNN 138A 20/33 4 ©62B#46 

SRCMOK 1365 20/28 20838 

SRCONP 1384 20/37 2Bt44 

SRSETB ike 2i/il = 21#41 = 3B/5e 

SSZDF 1B63 29/21 38839 

SSZDSP 1BBA Ss 14/43) eB/41ei/2t 1/35 Se/42G/ GBC 

SSZEXT 1BAS) =—_«38/46  3B#SS 

STILUS @DB4 3/14 86/4 687 

STKFLG 1F660— 34/4 «34/38/22 4 BR Se 

STLOK 19°B 34/38 34841 

SWNC1 1902 «= 36/ 5 36H B 

SVVNCe 1A@3 0 36/28 = S631 

SVWVNPD 197F = 35/25 Sted 

SVVNUP 19A2 0s «35/23 «35/28 = S/37) Se 

SVVNVI 1903s 35/2i = 3618 

SWMNLK 185B 46s 12/35 = 12837 

SWMODE 1046 124#29 51/56 

TABLOP @CBA 4#2 4/ie 

TAMFLG 1F65 8/30 «12/34 «28/7 «2B/20 ) «(ee/2L | 6/45 Se/26 
47838 

TAUPTS 1429 ee/22 8 aete? 

TBASEX 9068 1447 8/13/14) = B19 B/36 12/38 eB/11 
22/24 22/34 22/37 25/29 25/47 eb/e25) 66/38 
e6/Si 936/11 = a6/15 

TBASEY 986A 1448 «68/9 9 38=6B/18B/17)ee/SS eA /4B 23/33 
25/51 26/27 26/42 36/17 = 36/21 

TBSPTR iF91 2/49 «= B/ 2 12/33) ee/eB OC D/e22 )=—e/25 eb /e8 
e6/24 32/29 S2/31 36/13 36/19 36/25 «39/5 
4O#44 

TCTRi = iF@5 7/20 «22/49 = 4BRIe 

TETRe iF@6 7/18 9 22/38 46813 

TCTR3 iF @7 7/1600 22/51 4614 

TEMP =1F7E 7906 3/49 O/B OB TT OALLO/Iee7/11 
27/18 40/28 48/43 48/55 41/27 41/32 44/46 
44/30 44/35 45/4 48813 

TEMPX iF3B 7/38) «25/11 «25/38 26/11) 26/26 |= 28/45 AGH 

TEMPY iF aC 7/46 25/15 «925/34 «8926/13 «6/28 §=6B/S1 46 HSe 

TMPCPY 64CF 54/28 34/38 SAé#4e 

TMPNUM 1F3D 4/54 3/8 3/48 6/14 40/27 48/35 48/38 
41/21 41/25 41/34 41/35 4e/22 42/54 43/26 


TQ O062 #42 (52/43 Se/47)Se/5@ 52/54 «=68/11 93/13 
53/16 33/28 S3/ei 34/18 S4/eh = SA/31 34/33 
04/37 

TPTR = 1F5? 7/47) 7736/21 Ae/3eeB/1S) ee/19 25/39 
25/43 26/33 26/44 =A 7#16 

TREALL 13FA = he BB 3B/49 

TREADK 1402 22/9 eetil 

TREMDE i321 3/13 19851) 0 51/3 

TROME 134D 28/9 2B/i2 20413 

TREMNN 1357 «28/4 = BRIO 

TROMOK 1329 19/52 1384 

TRSETB 142A 896 22/17) |= eee 38/54 

TSZDF iBA6 29/28 368#55 
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3 


TSZDSP 1BAD 


TSZEXT iBC8 
TURTLE @FF9 
TXBSE 98880 
TXBUF1 iA4C 
TXBUFe 1A9C 
TXCOLR @@1E 
TXDRWF 827 
TXFREZ @@9E 
TXHLDX @014 
TXHLDY 8016 
TXLINI @088 


TXLINe 8088 


TXLOC 9894 
TXMODE @89E 
TXNEBX 8894 
TXNEGY 8896 
TXPNM = 8@A7 
TXPNT 8@A7 
TXGST 886A 
TXSSZ 9825 
TXTDSP C851 
TXTFLG iF 82 


TXTSZ @@iC 
TXUSD 680i 
TXVER 908A 
TXWRP BBA 
UPDSPD @FD4 
UPMODE 1869 
UPSNTS @FDD 
USEDEX 1B1i 
USEDF 1AFB 
USEDSP 1AEB 
USEX  1F44 


USEY 1F45 


VERHIT 1@CD 
VERHPT 18D2 
VEROFF i@D7 
VERUPD 18D9 
VISFL6 1F6D 


VISHLD 1F96 
WARPOF 1004 
WRAPAT 1CB9 
WRCTLI 1A18 
WRETLe 1A32 
WRDNT iASi 


8/37 
SH 3 
39/ 7 
11#39 
c#i4 
36/56 
37/14 
C#24 


12/46 


S14 
oe/ 8 
38/19 
3722 
37#26 
10/14 
13/ 8 
13/27 
18/11 
18/2? 
2/13 

e/24 
e/i7 

2/29 
13/17 
12/44 
19/ 9 
19/42 
27/14 
13/43 
14/49 
38/48 


gi/il 


33/ 9 
37/45 
14/ 8 
14/24 
11/24 
12#43 
11# 9 
37#47 
37/36 
36/18 
7/43 
18/43 


7/44 
17/38 
47# 6 
se/18 
33/ 8 

4/22 
14% 7 

8/45 
29/22 
33/ 6 
42% 8 
13/48 
36851 
37# 9 
37% 7 


eC@/15 22/26 9 eb/Se 8632/34 = 36/29 


38/34 


29/47 
29/58 
29/29 
29/48 
29/43 
2/14 
2/25 
2/18 
2/38 
29/26 
3/7 
29/56 
30/ 4 
38/18 
13/38 
29/37 


31/2 


29/23 
29/53 
11/27 


37439 
37433 
8/ 3 
18/44 


8/ 6 
19/21 


14/ 3 


14/2 
33/28 


16/ 5 


2/15 


e/19 


29/32 


36/48 


11/31 


8/24 
33/27 


8/16 
19/22 


14# 6 


14/ 7 
47#49 


42% 3 


2/16 


2/28 


11/35 


15/ 4 
34/12 


8/28 
33/32 


e3/ & 


23/28 


e/ei 


e/26 


39/17 


33/14 


15/11 
34/28 


15/6 
34/14 


24/23 


24/21 


PP1G 


e/e22 


e/e7 


48/22 


17/3 
33/9 


15/13 
34/22 


24/56 


22/72/27 29372) Page 65 


. ASM 
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WRDNe 1A4B 8637/15 | 37#e8 

WRNONE 1917 836/43 = 36846 

WRPEXT 11@D 14/27 14832 

WRPFLG 1F71 14/16 14/23 14/28 16/3 29/52 47#53 

WRPHIT 1965 14816 Se/ii 

mn WRPHLD 1F97) = 48 #59 

WRPIND 1798) = «14/29. «15/39 16/4 9928/35) «642/348 

WRPOFF 1@F2 14/17 = 14#22 

WREON = 1@EA 3/34 14818 

WRPUPD 10F4 14/21 = 14423 

WRIEXT 104 3/3 3B/24 36839 

WRILP1 i1A23 409s S656 = 37/ 6 

WRILPe 1A3D 4 8=—- 37#14 = 37/19 

WRTOPe 1A14 8 =—636/42 39 S645 

XCHARI 1F3E s/i@ 3/15/19 3/22 4S 4 9/46 18749 
11/35 19/94 20/38) et/ 5 (eesti «627/36 = 38/37 
3O/% 833/13 = 46854 

XCHAR2 1F3F 4/6 10/48 27/45 46855 

XCRUIS 1F74 =616/44 «18/5 18/18 18/47 29/39 33/37 5/2 


47#56 
XNEG «F720 8619/3 19/8 29/55 34/45 47%#54 | 
XNEGOF 12C7 3/38 ASS (21/26 ‘ 


XTABL 6108 44/28 S083 

XTAB2 6208 44/33 44/39 S@#15 

XTRNOF 1273 3/45 18/6 1889 

XUPMDE 1275 18/8 18818 

XYEXT iBEF 39/19 39836 

XYPRI 1BC9 37/46 39416 

YORUIS 1F75 = 16/47) 18/ei) = 18/26 «19/25 8/42 83/41 5/5 
4B# 2 

YESHIT @DSC 0/44 = S#47 

YESOK @D72 83/530 «65 

YNEG iF73 8619/36 «19/41 30/3 34/51 47855 

YNEGOF 13@D 3/31 19838) = 2/27 

YTAB1 680@ 44/16 49838 

YTABe 6088 44/18 49445 

YTRNOF 1289 3/46 18/22 = 1BHe5 

YUPMDE 128B 18/24 1826 





YTAB2 6080 
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